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ABSTRACT 


RADIAL  INSTABILITIES  OF  A  PULSATING 
AIR  BUBBLE  IN  WATER 

HORSBURGH,  STEVEN  DEWITT.  B.  S.  ,  University  of  Mississippi,  1983. 
M.S.  ,  University  of  Mississippi,  1984.  Ph.  D.  ,  University  of 
Mississippi  1990.  Dissertation  directed  by  Dr.  Lawrence  C.  Crum. 

Recently,  several  theoretical  studies  have  been  originated  concerning  the 
spherical  stability  of  a  pulsating  air  bubble  in  water.  In  this  study,  a  light 
scattering  technique  was  utilized  to  "photograph"  in  real-time  the  motion  of 
the  bubble  surface.  The  main  objective  was  to  experimentally  determine  the 
shape  oscillation  threshold  of  an  acoustically  driven  air  bubble  in  water. 
These  thresholds  were  defined  as  the  minimum  pressure  necessai-y  to 
drive  a  bubble,  at  a  particular  radius,  into  non-radial  motion.  The  results 
of  this  study  show  a  marked  improvement  over  previous  experiments  in 
detecting  the  radial  instabilities  resulting  in  shape  oscillation.  Further,  by 
using  a  numerical  integration  technique  applied  to  a  simplified  theory,  the 
experimental  shape  oscillation  thresholds  were  predicted  quite  well. 
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Introduction 


Recently,  several  theoretical  studies  have  been  originated  concerning  the 
spherical  stability  of  a  pulsating  air  bubble  in  water.  One  of  the  earliest 
studies  was  done  by  Taylor  (1950)  who  discussed  the  stability  of  a  plane 
interface  between  two  fluids  of  different  densities  undergoing  an 
accelerated  motion.  Plesset  (1954)  extended  Taylor's  argument  to  describe 
the  spherical  stability  of  the  motion  of  two  immiscible,  incompressible, 
inviscid  fluids.  A  first  order  perturbation  technique  was  used  to  describe 
the  deviation  from  spherical  symmetry  based  on  a  linearization  of  the 
radial  motion  of  the  bubble.  Eller  and  Crum  (1970)  went  further  in 
describing  the  radial  motion  of  the  bubble  by  using  a  polytropic  formulation 
of  the  Rayleigh-Plesset  equation  for  inviscid  liquids.  They  derived  an 
analytical  solution  to  the  instability  problem  by  using  a  third  order 
expansion  solution  to  the  radial  equation  and  by  expressing  the  motion  of 
the  bubble  surface  as  a  perturbation  to  the  spherical  shape  (i.e.,  r  =  rs(0,<>,t) 

oo 

=  R(t)+  £an(t)Yn(9,<j>)  ).  A  description  of  their  analytical  solution  and 
n=2 

results  will  be  given  later.  Prosperetti  (1977)  extended  this  formulation  to 
include  viscous  effects.  He  assumed  that  the  radial  motion  could  be 
expressed  as  a  superposition  of  spherical  harmonics.  Thus  the  motion  of 
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the  bubble  surface  could  be  expressed  as:  r  -  R(t)  -  ea(t)Ynm(0,<$>)  =  0,  with  0  < 
e  «  1.  By  expressing  the  velocity  and  pressure  fields  as  sums  of  radial, 
potential,  and  viscous  terms,  Prosperetti  was  able  to  derive  the  equations  of 
motion  which  included  a  radial  equation  and  a  shape  distortion  equation 
which  represented  the  deviation  from  spherical  symmetry.  In  this  work,  a 
procedure  similar  to  Prosperetti's  will  be  used  with  an  additional 
irrotational  flow  restriction  on  the  motion  of  a  pulsating  air  bubble  in  water. 

Experimental  observations  have  shown  that  a  pulsating  air  bubble  in  water 
will  exhibit  a  radial  instability  (shape  oscillation)  threshold  (Eller  and 
Crum,  1970).  The  threshold  is  such  that  if  the  bubble  s  equilibrium  radius 
remains  constant  and  the  driving  pressure  is  increased,  or  if  the  driving 
pressure  remains  constant  and  the  bubble's  equilibrium  radius  changes, 
then  there  exists  a  sharp  demarcation  between  regions  where  any 
perturbation  to  the  bubble's  spherical  shape  will  grow  and  where  the 
perturbation  will  quickly  damp  out. 

Previous  experimental  observations  of  radial  instability  thresholds  of  a 
driven  air  bubble  in  water  have  been  made  both  by  Gould  (1974)  and  by  Eller 
and  Crum  (1970).  In  these  observations,  the  thresholds  were  defined  by  the 
appearance  of  a  "dancing"  motion  of  the  bubble.  While  the  bubble  was 
clearly  exhibiting  non-spherical  motion  at  this  "dancing"  threshold,  the 
radial  instability  threshold  had  occurred  at  a  different  point.  The 
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"dancing”  threshold  criterion  only  allowed  for  nonstable  shape  oscillations 
in  which  there  was  significant  motion  of  the  center  of  mass  of  the  bubble. 

In  this  study,  a  light  scattering  technique  was  utilized  to  "photograph"  in 
real-time  the  motion  of  the  bubble  surface.  The  main  objective  was  to 
experimentally  determine  the  shape  oscillation  threshold  of  an  acoustically 
driven  air  bubble  in  water.  These  thresholds  were  defined  as  the  minimum 
pressure  necessary  to  drive  a  bubble,  at  a  particular  radius,  into  non-radial 
motion.  To  accomplish  this,  a  single  air  bubble  was  acoustically  levitated  in 
a  cell  containing  filtered  water,  a  laser  beam  illuminated  the  bubble  and  the 
scattered  light  was  detected  by  fast  silicon  photodiode  detectors.  Ordinary 
photography  using  a  microscope  and  stroboscopic  techniques  was  deemed 
insufficient  to  obtain  radius  vs.  time  curves  to  describe  the  motion  of  the 
bubble. 

The  results  of  this  study  show  a  marked  improvement  over  previous 
experiments  in  detecting  the  radial  instabilities  resulting  in  shape 
oscillation.  Further,  by  using  a  numerical  integration  technique  applied  to 
a  simplified  theory,  the  experimental  shape  oscillation  thresholds  were 
predicted  quite  well.  In  addition,  the  frequencies  of  the  shape  oscillations 
agree  quantitatively  over  the  range  of  bubble  radii  used  (-10-100  microns, 
driven  below  resonance  radius  at  22.22  kHz). 
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This  dissertation  essentially  contains  three  main  sections:  Theoretical 
Development  and  Discussion,  Analytical  and  Numerical  Solutions  to  the 
Theoretical  Problem,  and  Experimental  Results  and  Discussion.  Each 
section  is  basically  self  contained,  in  that  they  need  not  be  read  in  the  order 
presented,  although  it  is  assumed  that  an  orderly  progression  through  the 
entire  dissertation  would  be  the  common  approach.  There  are,  however, 
comparisons  between  sections,  especially  between  the  theoretical  and 
experimental  results. 

The  material  is  presented  in  the  following  sequence.  First,  a  simple 
development  of  the  Navier-Stokes  equation  is  given  in  Chapter  II.  Next,  in 
Chapter  III,  the  equations  of  motion  for  a  driven,  pulsating  air  bubble  in 
water  are  derived  and  simplifying  assumptions  are  given  to  arrive  at  a  set 
of  two  coupled,  non-linear,  second-order  differential  equations  that  describe 
the  volume  pulsations  and  shape  distortions  exhibited  by  a  bubble.  Chapter 
IV  presents  an  analytical  solution  to  the  equations  derived  in  Chapter  III. 
The  analytical  solution  decouples  the  equations  by  assuming  a  functional 
form  for  the  bubble's  radius  as  a  function  of  time.  This  functional  form  is 
then  inserted  into  the  shape  distortion  equation  which  is  solved  in  terms  of 
spherical  harmonics.  Chapter  V  directly  solves  the  equations  in  Chapter 
III  by  numerical  integration.  Chapters  IV  and  V  introduce  the  idea  of  a 
shape  oscillation  threshold  (i.e.,  a  radial  instability  threshold),  and 
graphically  present  the  shape  oscillation  thresholds  as  driving  pressure  vs. 
the  equilibrium  bubble  radius.  Chapter  VI  is  a  theoretical  and 


experimental  description  of  the  phenomenon  of  Mie  scattering.  The 
theoretical  derivation  of  the  scattering  amplitudes  associated  with  Mie 
scattering  is  the  next  logical  step,  but  because  of  its  complicated  nature  and 
relative  importance,  this  derivation  is  regulated  to  Appendix  B.  Chapter 
VII  details  the  experimental  apparatus.  Chapter  VIII  is  the  focal  point  of 
this  dissertation.  The  other  chapters  lay  groundwork  and  definitions  for 
this  experimental  discussion  chapter.  First,  the  experimental  methods  are 
outlined,  then  a  discussion  of  related  experimental  observations  are  given, 
and  finally  the  experimental  results  are  presented.  Lastly,  in  Chapter  IX, 
a  summary  of  important  points,  a  list  of  the  major  contributions,  and  a 
conclusion  are  given. 


Formulation  of  the  Problem 


We  will  consider  the  problem  of  an  interface  separating  two  immiscible, 
viscous  liquids  of  differing  densities.  Following  a  procedure  similar  to 
Morse  and  Ingard's  (1986)  approach  we  begin  as  follows.  Assume  that  the 
velocity  of  the  interface  is  a  function  of  position  and  time: 

u  =  u(r,t).  (1.1) 

In  general  a  continuity  equation  can  be  expressed  in  terms  of  a  tensor  flux 
as 


3£+V»J  =  F  ,  (1.2) 

where  f  is  some  physical  property,  F  is  a  source  of  f,  and  I=B+T  is  a  tensor 
which  is  the  sum  of  the  stress  tensor  (B)  and  the  momentum  flux  tensor 
( T ).  If  we  let  f  =  pu,  the  momentum  per  unit  volume  of  the  fluid,  where  p  is 
the  liquid  density,  and  F  =  -V(p<j>)  be  some  external  force  such  as  gravity, 
where  <j>  is  some  potential  function,  then  Eq.  (1.2)  can  be  written  as 
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^p+V(B+D»-V(p<t>) 


where 

P  XX 

Pxy 

Pxz  1 

puxux 

puxuy 

puxuz 

B  = 

Pyx 

pyy 

n 

Pyz 

and  T  = 

pUyUX 

pUyUy 

PUyUZ 

L  Pzx 

P  zy 

Pzz  - 

_  puzux 

pUZUy 

puzuz  _ 

From  Eq.  (1.4),  we  see  that  T  may  be  expressed  as 


V*T  =  uV*(pu)  +  p(u*V)u  . 


Noting  that  by  definition: 


d(pu) 

dt 


du 

=  p— -  uV*(pu) 
at 


we  see  that  Eq.  (1.3)  becomes 


p^f  = -V(pb)  - 


For  inviscid  liquids  the  stress  tensor  is  simply 


1 


(1.3) 


(1.4) 


(1.5a) 


(1.5b) 


(1.6) 


POO 
0  P  0 
OOP 


(1.7) 
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where  P  is  the  pressure  in  the  liquid.  In  general,  the  stress  tensor,  B,  is 
written  as 

B =[p - (q - |pjv*ujA- li(Vu  +  uV)  ,  (1.8) 

where 

4,j  =  Sij  (VuJij  =  a9) 

Here  p  s  coefficient  of  shear  viscosity  and  r\  s  coefficient  of  bulk  viscosity. 
Using  the  relations 

[V*(uV)]j  =  [V(Vu)]j  ,  (1.10) 

and 

[V*(Vu)]j  =  V2Uj  =  [V(V*u)]j  -  [Vx(Vxu)]j  ,  (1.11) 

we  find  that 


V*jB  =  V*  P-(r|  -  |p)V*u  -  V*[p(Vu  +  uV)] 


(1.12) 
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=  VP  -  V^q  -  |^ijv *u  -  (pV2u)  -  ()i.V *uV) 
=  VP  -  V^tj  +  |jijv*u  +  pVxVxu  , 


so  that  the  continuity  equation  Eq.  (1.6)  becomes 


p^-  =  -V(p<}>)  -  [VP  -  V(ri+|p)V *u  +  pVxVxu] 


(1.13) 


Rearranging  the  terms  in  Eq.  (1.13)  we  obtain  the  Navier-Stokes  equation  of 
the  motion  of  a  viscous,  compressible  fluid. 


p^  =  -vjV  +  pp  -  Cn+|ji.)V»u  -  pVxVxu  . 


(1.14) 


Next,  using  the  relations: 


VxVxu  s  V(V*u)  -  V2u  , 


(1.15) 


and 


du  du 

dTsA+(u*V)u  ' 


(1.16) 


Eq.  (1.14)  becomes 
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p  ~+  (u*V)uj  =  -v|V+p<Hti+!p)V*u]  -  pV(V*u)  +  )iV2u  ,  (1.17) 


p  —  +  (u*V)u  =  -V(P+p<)>)  -V(ri+4i)V*u  +  pV2u  .  (1.18) 

L  at  j  ^ 


The  mass  continuity  equation  may  be  written  as: 


3p 

-7+  V*(pu)  =  0 
at 


(1.19) 


If  we  assume  that  the  density  is  essentially  constant  in  space  and  time, 
then  Eqs.  (1.18)  and  (1.19)  become 


p—  +(u*V)u  =  -  VP  -  pv<{>  +  VCn  +  |p)V*u  +  pV2u  ,  (1.20) 

dt 


V»u  =  0 


(1.21) 


Combining  Eqs.  (1.20)  and  (1.21)  we  have 
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9u 

T“+  (u*V)u 
at 


=  -VP  -  pV<t>  +  |iV2u 


If  we  neglect  body  forces  such  as  gravity,  Eq.  (1.22)  becomes 


du 

-—+  (u*V)u 

ot 


=  -VP  +  p.V2u 


(1.22) 


(1.23) 


The  problem  is  now  defined;  all  that  remains  is  to  find  an  expression  for  the 
velocity  field  u,  and  to  apply  the  appropriate  boundary  conditions  imposed 
by  the  problem  of  interest. 


Equations  of  Motion 

Introduction 

The  Navier-Stokes  equation  (1.14)  describes  the  general  motion  of  a  viscous, 
compressible  fluid  element.  For  this  particular  study,  we  will  describe  the 
surface  motion  of  a  driven,  pulsating  air  bubble  in  water.  We  will  further 
assume  that  the  densities  of  the  water  and  air  are  essentially  constant  (i.e., 
the  fluids  are  incompressible)  so  that  Eq.  (1.23)  holds.  While  this 
incompressibility  condition  seems  artificial  at  first,  we  note  that  the  density 
of  water  is  very  much  greater  than  the  air  inside  the  bubble  and  that  the 
pressures  used  in  this  experiment  do  not  change  the  density  of  the  water 
appreciably.  In  addition,  we  will  assume  small  amplitude  volume 
pulsations  for  the  bubble  so  that  the  density  of  the  gas  will  not  change 
appreciably.  If  the  bubble  is  driven  at  sufficiently  low  pressure  amplitudes 
then  the  steady-state  motion  of  the  bubble  is  spherically  symmetric.  The 
surface  tension  of  the  water/air  interface  and  the  viscosity  of  the  water  tend 
to  keep  the  bubble  spherical.  Any  small  perturbation  introduced  to  the 
surface  will  quickly  damp  out  and  the  bubble  will  resume  a  spherical 
shape.  In  this  study  we  are  interested  in  determining  the  maximum 
driving  pressure  applied  to  the  bubble  for  which  the  bubble  will  retain  its 
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spherical  shape.  We  will  show  that  a  pressure  threshold  exists  so  that  the 
bubble  does  not  gradually  exhibit  non-radial  motion  as  a  function  of 
pressure;  rather,  a  sharp  demarcation  exists  between  the  point  when  any 
small  perturbation  will  damp  out  and  when  that  perturbation  will  either 
grow  exponentially  or  become  a  stable  shape  oscillation. 

For  our  theoretical  model,  we  will  assume  that  the  bubble  is  slightly 
distorted  from  a  spherical  surface  of  radius  R(t)  to  a  surface  described  by  a 
superposition  of  spherical  harmonics: 

rs  =  R(t)  +  ea(t)Ynm(0,<t>)  ,  (2.1) 

where  0  <  e  «  1  and  Ynm  is  a  spherical  harmonic  of  degree  n  >  2  (n=l 
corresponds  to  a  translational  motion  which  is  not  of  interest  in  this 
experiment).  We  will  only  concern  ourselves  with  terms  in  the  first  order  of 
e  in  the  following  treatment.  We  will  also  make  the  assumption  that  no 
mass  transfer  takes  place  across  the  bubble  surface.  The  predominant 
mass  transport  mechanism  is  known  by  the  term  "rectified  diffusion".  In 
this  experiment  it  was  shown  that  while  this  process  changed  the  amount 
of  air  in  the  bubble  (i.e.,  a  volume  change),  the  time  scale  (~102  sec)  for  such 
processes  is  many  orders  of  magnitude  longer  than  the  time  scales  used  in 
this  experiment  (~  10’3  sec).  Appendix  A  describes  the  rectified  diffusion 
measurements  in  more  detail. 
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To  solve  for  the  equations  of  motion  we  begin  by  representing  the  velocity 
and  pressure  by 

u  =  ur  +  eup  +  euv  ,  (2.2) 

P  =  Pr  +  ePp  +  ePv  ,  (2.3) 

where  the  subscripts  refer  to  radial  terms,  r,  potential  correction  terms,  p, 
and  correction  terms  due  to  viscosity,  v.  From  Eqs.  (1.21)  and  (1.22)  we  have 

V*u  =  V«(ur  +  eup  +  euv)  =  0  ,  (2.4) 

3(ur  +  eup  +  euv)  r/ 

p - -k - +  [(Ur  +  eup  +  £UV)*  V](ur  +  eup  +  euv)  =  (2.5) 

L  at 

-V(Pr  +  ePp  +  ePv)  +  pV2( ur  +  eup  +  euv)  , 
which  become  the  following  six  equations  (to  first  order  in  e): 


V*Ur  =  0  , 

(2.6) 

V*up  =  0  , 

(2.7) 

V*uv  =  0  , 

(2.8) 

dUr  1 

P  —  +  (ur*V)ur  =  -VPr  +  pV2Ur  , 

(2.9) 

+  (ur*V)up  +  (up*V)ur  =-VPp  +  pV2Up  , 

(2.10) 

+  (ur*V)uv  +  (uv*V)ur  =  -VPv  +  pV2uv  . 

(2.11) 
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Radial  terms 


Equation  (2.9)  is  simply  the  radial  equation.  To  find  ur,  using  Eq.  (2.6)  in 
spherical  coordinates  with  the  origin  located  at  the  center  of  the  bubble  and 
assuming  u  =  u(r,t),  then: 


V*u 


9(r2u)  9u  2u 
r29r  dr  +  r 


(2.12) 


For  the  rest  of  this  section  the  subscript  on  ur  will  be  dropped.  Integrating 
Eq.  (2.12)  over  velocity  and  radial  limits  we  obtain 


u  r 


(2.13) 


which  gives 


(2.14) 


Noting  that  r0  =  R  and  u0  =  dR/dt  =  R' 1  then  Eq.  (2.14)  becomes 


iNote:  in  general,  time  derivatives  will  be  denoted  by  primes. 
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R2R' 

U=  r2  ’ 

(2.15) 

where  R=R(t)  is  the  position  of  the  bubble  wall  as  a  function  of  time.  Now 

that  we  have  an  expression  for  the  fluid  velocity  ur>  we 

can  obtain  the 

following  relations: 

,  „  du  oR4R-2 

(u*7)u  =  uSr  =  -2-75-  . 

(2.16) 

„o  9(r2u)  „ 

V2u  =  ^  =0  , 

(2.17) 

and 

9u  R2R"  2RR'2 
dt  “  +  r2 

(2.18) 

Inserting  Eqs.  (2.16-2.18)  into  Eq.  (2.9)  we  have: 

rR2R"  „RR'2  2R4R'2l  aP 

ph*"+aT*-  X*  J-'ar- 

(2.19) 

Integrating  r  from  «  to  R  and  P  from  Pm  to  P  gives 

P  =  P«,  +  p(R"R  +  2R’2  -  |r’2 j  . 

(2.20) 
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To  determine  the  boundary  condition  at  the  bubble  surface  we  use  the 
requirement  of  continuity  of  stress  across  the  interface.  From  Eq.  (1.8)  the 
stress  tensor  is  given  by 


B  =  -  |ji  jv  •u^A  -  M-(Vu  +  uV) 


(2.21) 


The  radial  component  of  B  is 


Err  =  [p  ‘  (jl  *  *Ur]  -  ltfVur  +  UrV) 


(2.22) 


From  the  relations  in  Eq.  (1.9)  we  find 


dUr  5ur 

<Vu)r-r= "57  ’  <uV,-=7f  ' 


(2.23) 


and  from  Eq.  (2.12)  we  see  that 


V*ur  = 


(2.24) 


Thus,  becomes 


Bn-  =  P  -  4 [I 


R2R' 

“?r 


(2.25) 
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At  the  bubble  surface,  r=R  we  have 


Brr  =  P  -  ,  (2.26) 

where  P=Pi  is  the  pressure  inside  the  bubble.  Applying  the  dynamical 
boundary  condition  that  the  discontinuity  in  the  normal  stress  (Bn-)  will 
equal  the  surface  tension  a  times  the  total  curvature  of  the  surface  we  have 

Brr®  -  Brr®  =  Tf  .  (2.27) 

(for  r=R,  (1)  =  inside,  (2)  =  outside) 

or 


(2.28) 


where  P  is  the  pressure  in  the  liquid.  This  equation  may  be  used  to  describe 
the  pressure  at  the  bubble's  surface: 


P  =  Pi 


2 o  ,  R' 

'  TT'  4(TT  • 


(2.29) 


Equating  Eqs.  (2.20)  and  (2.29)  and  rearranging  terms  we  arrive  at  a  form  of 
the  Rayleigh-Plesset  equation 
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R"R  +  |R2  = 


(2.30) 


Potential  correction  terms  -  deviation  from  spherical  symmetry 

Next,  we  turn  our  attention  to  Eq.  (2.10)  which  represents  the  deviation 
from  sphericity.  As  before,  the  problem  is  to  determine  up.  To  begin,  we 
will  assume  that  the  position  of  the  surface  can  be  represented  by 

rs  =  R(t)  +  ea(t)YnTn(0,<()) .  (2.31) 


We  will  assume  that  u  may  be  described  by  the  gradient  of  a  potential  u=V<j> 
and  that  Laplace's  equation  V2<j>=0  holds.  Thus  we  will  have  solutions  of 
Laplace's  equation  on  both  sides  of  the  bubble  wall  interface  so  that  the 
potential  terms  <J>i  and  <>2  may  be  written  as  (Plesset,  1954) 


R2R’  u  n  v 
<J>1  =— ~  +  birnYn 

,  R2R’  b2Yn 

02 


r  <  R  , 
r  >  R  . 


(2.32) 

(2.33) 


This  form  of  the  velocity  potentials  assumes  axisymmetry  (i.e.,  the 
spherical  harmonic  Ynm(0,0)  =  Yn(0)  ).  While  this  assumption  may  not  be 
strictly  true,  as  shown  in  experimental  studies  by  Holt  (1989),  this 
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approximation  may  prove  to  be  quite  good  for  small  perturbations  to  the 
spherical  shape.  Using  the  boundary  condition 


=  u  =  R'  +  ea’Yn 


(2.34) 


and  using  Eqs.  (2.32)  and  (2.33),  we  can  solve  for  bi  and  b2  as  follows: 


B2K 

r2 


nbir* 


R2R’ 

b2Yn,  x 

r2 

+  -  R  +  ea’Y„  , 

(2.35) 

b2(n+l) 

bi  =- 

nr2n+1  ’ 

(2.36) 

and 


b2  = 


R’  +  ea’Yn  - 


r2R’ 


(n+l)Y„ 


rn+2 


(2.37) 


Inserting  Eq.  (2.31)  into  Eqs.  (2.36)  and  (2.37)  and  simplifying  we  obtain: 

,  Rn+2e(2aR’/R  +  a’) 

b2  * - ta+T) - •  <2-38> 

Next,  to  obtain  an  expression  for  bi  in  Eq.  (2.36),  using  Eqs.  (2.38)  and  (2.31), 
we  find 
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,  2aR’/R  +  a' 
bl=‘e  nRn'-l  " 


(2.39) 


Therefore  inserting  Eqs.  (2.38)  and  (2.39)  into  Eqs.  (2.32)  and  (2.33)  we  arrive 
at  the  following: 


R2R'  rnYnr„  _  n 
<I>1  =— li2aR  /R  +  a  ] 


R2R' 


nRn_ 
Rn+2Yn 


^2  =~~r~  +  e(nVl)rn^2aRI/R  +  a'l 


(2.40) 

(2.41) 


The  deviation  from  sphericity  is  the  second  term  in  Eqs.  (2.40)  and  (2.41)  so 
that  <j>i  and  <>2  may  be  rewritten  as 


rnY 

^ 2aRVR  +  a'l » 

Rn+2v„ 

<t>9.  »  C7 — ;-s  ...ifaaRYR  +  a’l 


(2.42) 

(2.43) 


Inserting  these  into  Eq.  (2.10)  we  find 


g(V0)  R2R’, 

dt  + 


/  R2R\ 

■V(V<}>)  +  V<M-2--pp-J  =  -VP  +  jj.V2V(4>).  (2.44) 


Equation  (2.44)  may  be  integrated  to  give  (using  only  the  spherical  deviation 
parts) 
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P  v2  =  np2Yn 


j  T2(R,t)  R'  f>R^ 

"/R,3  ' 

N 

V2  R  +  R  s 

(r)-1 

T2(s,t)ds  * 

l  J 

L\°  )  -1 

j 

(2.50) 


where  v=p/p  is  the  kinematic  viscosity  and  T  is  the  toroidal  field  on  the 
inner  (1)  and  outer  (2)  side  of  the  bubble  wall.  The  boundary  condition  that 
requires  the  tangential  stress  vanish  at  the  bubble  surface  requires  that 
T(r,t)  satisfy 


<30 

2vRn-l Js-nT(s,t)ds  +  vT(R,t)  =  ^~v[(n+2)a'n  -  (n-lh^2-] 


(2.51) 


If  we  ignore  the  integral  contributions  in  Eqs.  (2.49  -  2.51)  and  eliminate 
T(R,t)  in  Eqs.  (2.49)  and  (2.50)  by  using  Eq.  (2.51)  we  have 


Pvl 

P 


■  (n+DpiYnj^^Cn+Da’  -  (n-1)^]}  , 

v2  =  nP2Yn((n+12)R_(n+l)a'  -  (n-i)^]|  . 


(2.52) 

(2.53) 


Thus  Pv  =Pvi  -  Pv2  is 


Pv 


2pi  2np2 

R  '(n+l)R 


(n+l)a'  -  (n-1 


(2.54) 


Equations  of  motion 


Combining  Eqs.  (2.11),  (2.48),  and  (2.54)  and  applying  the  boundary 
conditions  at  the  bubble  interface  described  above  we  may  write  the 
spherical  deviation  terms  (those  mutilplied  by  Yn)  as2 


P2 


(n+1) 


+  Ra"  +  3^,+  -  |(n-lKn+2Xwm)Ja'- 


-  f^P2)R"  +  2(n-lXn+2)((i2-m)p+  (n-lXn+2)p  a  =  0.  (2.55) 


For  an  air  bubble  in  water  pi  «  P2  and  pi  «  P2-  So,  setting  pi  =  0  and  pi  =  0  in 
Eq.  (2.55)  we  have 


[omT)]83'  +  [{(KTI))1'  -  |"-Mn+2)n]aV 

+  2(n*lXn+2)p^  +  (n-l)(n+2)^  a  =  0  ,  (2.58) 


which  can  be  rearranged  to  obtain 


2Note  that  if  we  ignore  viscosity  (i.e.,  M-l  =  M-2  =  0)  then  the  above  equation  can  be  written  as 

a"  +  ~-a’  +  Aa  =  0  ,  (2.56) 

where 

[n(n-l)p2-(n+l)(n+2)pi]R"-  (n-l)n(n+l)(n+2)^ 


A  =  ■ 


R[nP2+(n+l)pi] 
which  is  the  form  found  by  Plesset  (1954). 


(2.57) 
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a  + 


*}R'  V 

-g“-  2(n- 1  )(n+ 1  )(n+2 )|p-  a’  + 

+  2(n+l)(n+2)v^+  (n+l)(n+2>~- 


a  =  0. 


(2.59) 


Thus,  Eqs.  (2.30)  and  (2.59)  will  be  used  to  describe  the  motion  of  a  pulsating 
air  bubble  in  water. 


Recapitulation 

To  re-iterate  the  basic  assumptions,  we  have  assumed  that 

•  the  bubble  is  basically  spherical  with  small  amplitude 
oscillations 

•  the  deviation  from  sphericity  can  be  expressed  in  terms  of  a 
superposition  of  spherical  harmonics 

•  the  density  of  the  water  is  much  greater  than  that  of  air 

•  the  viscosity  of  water  is  much  greater  than  that  of  air 

•  rotational  flow  and  toroidal  fields  can  be  ignored 

•  there  are  no  body  forces  acting  on  the  bubble 

•  initial  spherical  deviations  are  very  small  compared  to  the 
equilibrium  radius  of  the  bubble 

•  the  bubble  behaves  axisymmetrically  (i.e.,  Ynm  =  Yn) 

•  there  is  no  mass  transfer  across  the  interface 
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•  the  equations  of  motion  describing  the  motion  of  the  bubble 
surface  are  given  by: 


R”R  +  iR'2=$p‘-p--T-44]  • 

a"  +  ^--2(n-l)(n+l)(n+2)pa,+ 

(n-1)  -^-+2(n+l)(n+2)>^,+  (n+l)(n+2>~-  a  =  0  (n<2). 


(2.60) 


(2.61) 


Analytical  and  numerical  solutions  will  be  presented  later  and  compared 
with  experimental  data. 


Analytical  Solution 


Introduction 


The  instability  of  the  radial  motion  of  a  pulsating  bubble  in  a  sound  field 
was  studied  by  Eller  and  Crum  in  1970.  Following  their  theoretical  outline 
an  analytical  solution  to  the  equations  of  motion,  Eqs.  (2.60)  and  (2.61),  can 
be  found.  This  approach  can  be  summarized  as  follows:  We  begin  with  the 
form  of  the  Rayleigh-Plesset  equation  given  as  Eq.  (2.60): 


R"R  +  iR'2=HPi'p”'^'4^- 


(3.1) 


Here  R=R(t)  is  the  bubble  radius,  p  is  the  density  of  the  water,  Pi  is  the 
pressure  inside  the  bubble,  P«,  is  the  pressure  in  the  water  far  from  the 
bubble  (i.e.,  the  driving  pressure),  o  is  the  surface  tension,  p  is  the  viscosity 
of  the  water,  and  the  primes  indicate  differentiation  with  respect  to  time. 
The  quantities  p,  c  and  p  are  considered  to  be  constants  and  P»  is  given. 
The  internal  bubble  pressure  and  a  functional  form  of  the  bubble  surface 
are  needed  to  solve  the  equation. 


27 


28 


Internal  bubble  pressure 

Characterizing  the  pressure  inside  the  bubble,  Pi,  has  received 
considerable  attention  (Prosperetti,  et  al.,  1988).  If  one  assumes  that  the 
bubble's  radial  oscillation  is  small  compared  with  its  equilibrium  radius 
then  one  may  assume  that  the  pressure  inside  the  bubble  obeys  a  polytropic 
law.  This  simply  means  that  the  pressure  inside  the  bubble  can  be  related 
to  its  volume  by  PVK  =  constant.  When  an  isothermal  approximation  is 
made,  the  polytropic  exponent  is  kv»1.  For  an  adiabatic  approximation  the 
polytropic  exponent  is  simply  the  ratio  of  specific  heats,  k=y=cp/cv.  Thus, 
the  pressure  inside  the  bubble  can  be  expressed  as 

pi  =  Pc^]3*  ,  (3.2) 


where  1  <  k  <  y,  P0  =  Pamb  +  2o/R0  is  the  initial  equilibrium  pressure  inside 
the  bubble,  Pamb  is  the  ambient  pressure  in  the  liquid,  and  R0  is  the 
equilibrium  bubble  radius.  The  actual  value  of  k  has  been  studied  by 
various  researchers  (Devin  1959,  Eller  1970,  Crum  1983,  and  Prosperetti 
1986).  In  this  study  the  form  derived  by  Eller  (1970)  was  used: 


,  Ox  J",  VsinhX- sinX^‘ 1 

K  -  *Uda,2)t  1+3-^aSr^ixjJ  ' 


(3.3) 
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with  the  following  definitions: 


X  =  Ro^co/Di)^  ,  (3.4) 

Di  =  -^-  ,  (3.5) 

PlCpl 

J  X(sinhX+sinX)-2(coshX-cosX) 
th=  ^  M  X2(coshX-cosX)+3(y-  l)X(sinhX-sinX)J  ’  (  ' 


where  R0  is  the  equilibrium  bubble  radius,  a>=27tf  is  the  angular  driving 
frequency,  Ki  is  the  thermal  conductivity  of  the  gas  in  the  bubble,  pi  is  the 
gas  density,  and  cpi  is  the  specific  heat  at  constant  pressure  of  the  gas.  The 
various  formulations  give  essentially  equivalent  values  of  the  polytropic 
exponent  for  the  conditions  of  interest  in  this  study. 


Third  order  approximate  solution 

Radial  equation 

If  we  assume  that  the  bubble  is  driven  by  a  sinusoidally  varying  pressure 
field  given  by: 


Poo  =  Pamb[l+  Pacos(cot)]  , 


(3.7) 
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where  Pa  is  the  amplitude  of  the  driving  pressure,  then  Eq.  (3.1)  may  be 
written  as 


R"R  +  |R'5 


3k 


2(J  RM 

-  Pamb[l+Pacos(cot)]  *  r-’  4IjR_[ 


(3.8) 


If  we  ignore  surface  tension  and  viscosity  (following  Eller  and  Crum),  then 
Eq.  (3.8)  becomes 


R"R  +  ^t'2 +  ^Sb|l-[^-]3  +  Pacos(tot)}  =  0  ,  (3.9) 

which  represents  the  radial  equation  of  motion.  This  equation  can  be 
numerically  integrated  to  obtain  R=R(t). 


Perturbation  equation 


To  describe  the  bubble's  deviation  from  sphericity,  we  will  first  assume  that 
the  liquid  is  inviscid  so  that  Eq.  (2.61)  becomes 


3R'  , 


a"  +  -gra'  +  (n-1*  +  (n+l)(n+2 


-R” 


pR3J 


a  =  0  . 


(3.10) 


If  we  define  a  new  variable  yn(t)  as 
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3. 

yn(t)  =  R2(t)an(t)  , 


(3.11) 


then  Eq.  (3.10)  becomes 


y  n  + 


(n+2Xn2-l)q 

pR3 


(3.12) 


This  equation  represents  the  spherical  deviation  equation  of  motion.  Thus 
Eqs.  (3.9)  and  (3.12)  are  the  coupled  equations  of  motion  describing  a 
pulsating  air  bubble  in  water.  To  derive  an  analytical  solution  one  may 
assume  that  steady  state  radial  oscillations  can  be  approximated  by  the 
following  truncated  expression  (Hall  and  Seminara,  1980): 

R/Ro  =  (1  +  A2b)  +  A  cos(o)t)  +  A2c  cos(2cot)  +  A2d  cos(3cot)  ,  (3.13) 


where 


A-  ?a 

(3.14) 

3tfp2-l)  ’ 

,  (3y  +  1  *  P2) 

b*  4 

(3.15) 

(3y+  1  +  532) 

(3.16) 

C '  4(l-p2)  ’ 

12(3y+l+llp2)c-(3yflX3y+2) 

(3.17) 

24(l-9p2) 
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and 


p  =  CO/COo  . 


(3.18) 


The  angular  resonance  frequency,  co0)  of  the  oscillating  bubble  is  given  by 


co0  = 


(3.19) 


Inserting  Eq.  (3.13)  into  Eq.  (3.12)  and  making  the  following  substitution: 


Zar^Oit  , 


(3.20) 


one  will  arrive  at  the  following  (Hayashi,  1964): 


y  ”n  +  (00  +  202cos(2z)  +  204cos(4z)  +  •••  )yn  =  0  .  (3.21) 


This  is  simply  a  linear,  second-order  differential  equation  with  periodic 
coefficients  and  can  be  written  as  a  form  of  Hill's  equation: 


&L  + 

dz2 


(  °°  A 

00  +  2  £02jcos(2jz)  [y  =  0 

j=l 


(3.22) 
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The  62j's  are  given  to  third  order  in  A  (Eller  and  Crum,  1969)  by 

0O  =  a  +  [3a(l-b)  -  (2n+|)]A2  , 

(3.23) 

^2  =  (2n+l-|a)A+[3a(2b+c-|)-3c+|-  (n+j)(5c+2b-|)]A3  , 

(3.24) 

04  =  [fa(l-c)  +  |+  (n+r)(8c*l)jA2  , 

(3.25) 

and 

06  =  [a(3c-fd-f)  +  3c  - 1  +  (n+j)(  18d+|--5c)  Ja3  , 

(3.26) 

where 

4a(n+l)(n2-l) 
a  —  3 

PO)2Ro 

(3.27) 

Solutions  to  Hill's  equation 

I  The  solutions  to  Hill's  equation  are  examined  in  detail  by  McLachlan, 

(1947).  A  solution  to  Hill’s  equation  is: 

oo 

yn(z)  =  euz  ^C2je2izi  , 

j  =  -oo 

(3.28) 
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where  the  C2j's  are  expansion  coefficients  and  u  may  be  real,  imaginary,  or 
complex.  For  our  purposes,  Eq.  (3.28)  may  be  rewritten  as 


yn(z)  =  euz| 


co  +  2^C2je2izi  , 
j=i 


(3.29) 


using  the  fact  that  C2j  =  c.2j.  This  solution  will  be  defined  as  unstable  if  it 
tends  to  <»  as  z— »°o  .  The  solution  will  be  defined  to  be  stable  if  it  tends  to  zero 
or  remains  bounded  as  z-»oo  .  From  McLachlan,  the  solution  is  unstable  if 
u  is  any  real  number  not  equal  to  0,  or  if  u  is  complex.  The  solution  is  stable 
and  periodic  if  u=i(3  and  if  (3  is  a  rational  fraction.  The  solution  is  also  stable 
and  non-periodic  if  u  *  ip  with  P  irrational.  Since  we  are  concerned  with 
shape  instabilities  we  will  examine  the  unstable  solutions.  Since  later  we 
will  be  comparing  u  with  a  physical  quantity,  we  will  limit  ourselves  to  the 
solutions  for  which  u  is  real.  Equation  (3.29)  may  be  written  as: 


yn  =  euz<D(z,a)  , 


(3.30) 


where 


<D(z,o)  =  sin(jz-c)  +  02f2(z,a)  +  04f4(z,a)  +  ...  +  O(02)  +  ...  .  (3.31) 


Equation  (3.30)  may  be  approximated  by  using  Eq.  (3.31)  as 


35 


yn  =  euzsin(jz-<y)  =  e^^sinCjcot^  -  a)  ,  (3.32) 


where  a  is  some  phase  angle.  Since  a  can  be  arbitrary,  the  problem  reduces 
to  finding  an  expression  for  n  since  all  other  quantities  are  given.  The 
general  theory  of  Mathieu  functions  can  be  used  to  obtain  expressions  for  u. 
Eller  and  Crum  used  the  results  of  Hayashi  (1964)  to  obtain  approximate 
solutions  for  u.  Since  the  solutions  to  Hill  s  equations  have  regions  of 
stability  and  instability,  the  idea  is  to  find  the  values  of  u  in  the  unstable 
regions  and  relate  these  to  known  parameters,  namely,  R0  and  Pa.  Only 
the  first  three  unstable  regions  were  considered  (j=l,2,3).  The  first  three 
regions  correspond  to  angular  frequencies  of  oa/2,  co,  and  3co/2.  The  values 
for  u  for  each  j  may  be  summarized  as  follows:  For  a  given  j,  the  value  of  u 
may  be  given  by 

Uj2  =  Sij2-S2j2  .  (3.33) 

Sij  and  S2j  can  be  approximated  by  only  considering  the  coefficients,  0o,  02, 
04,  and  06  and  by  considering  only  terms  up  to  second  order  in  0.  Thus,  the 
values  of  Sij  and  S2j  are  given  by: 


(3.34) 
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2£>21  =  0o  - 1  +  §022  +  |®42 


m 

2Sn 


\2 


02 


(3.35) 


for  j=2: 


4Sl2  =  04  -  5@22  +  ^0206  , 


4S22  *  00  *  4  -  £022  +  ^042  t7J062  + 


10v 


f  -Q2 
4Si2 


042  . 


and  for  j=3: 


1, 


6S13  =  06  -  4®204 

Ju 

16^  _  ^4  T?2v 


6S23  =  00 ' 9  *  i£022  =  i7^42  +  ^062  + 


r  ^3  ^ 

6S]3 


062  • 


(3.36) 

(3.37) 


(3.38) 

(3.39) 


Next,  we  obtain  a  polynomial  equation  for  each  Uj: 


f  a~  \4 


02 


Ul4  + 


1  (  09  A4  r  m.z  \ 

1^4^JV24  +  [1  +  32SS2ju22  +  (f2-Sl22)=0  , 

16  6Si3^  U34  +  ^  +  108S132)032  +  (g2 '  Sis2)  =  °  ’ 


1  +  ^li5)012  +  ^ '  Sn2)  =  ° 
f042  ^ 


(3.40) 

(3.41) 

(3.42) 


where 


e  =  0o/2  -  1/2  +  e22/16  +  e42/12  , 
f  =  0o/4  -  1  +  022/24  +  042/128  +  062/4O  , 
g  =  0o/6  -  3/2  +  022/96  +  042/6O  +  062/432  . 
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(3.43) 

(3.44) 

(3.45) 


Solutions  to  Eqs.  (3.40  -  3.42)  will  give  the  values  of  u  for  particular  values  of 
n  and  j. 


Threshold  criteria 

Now  that  we  have  solutions  for  the  values  of  u,  we  must  establish  a  criterion 
for  the  location  of  the  unstable  regions  as  a  function  of  bubble  radius,  Ro, 
and  applied  pressure,  Pa.  Equation  (3.32)  represents  a  solution  that  will 
tend  to  infinity  if  u  is  positive  (negative  values  for  u  will  be  discarded  as  will 
be  seen  later).  This  results  in  describing  a  shape  oscillation  whose 
amplitude  exponentially  grows  in  time  with  angular  frequency  jo)/2.  Due  to 
the  absence  of  viscosity  in  Eq.  (3.12),  the  shape  oscillations,  once  begun, 
would  increase  exponentially  in  amplitude  over  time.  Experimental  results 
show  that  this  is  not  the  case.  To  overcome  this  problem,  Eller  and  Crum 
followed  an  example  from  Lamb  (1945)  stating  that  small  perturbations  to 
the  shape  of  a  pulsating  bubble  would,  in  a  slightly  viscous  liquid,  damp  out 
exponentially  as  e*0^.  The  decay  constant  a  is  given  by 
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(n+2)(2n+l)|i 


(3.46) 


where  p  is  the  liquid  viscosity,  Ro  is  the  equilibrium  radius  of  the  bubble  and 
n  >  2  is  the  spherical  harmonic  mode  number.  If  it  is  assumed  that  the 
onset  of  a  shape  oscillation  occurs  whenever  the  growth  rate  of  the  unstable 
solutions  to  Hill's  equation  (ucot/2)  is  greater  than  the  damping  term  (*at), 
then  the  instability  condition  for  a  given  value  of  n  is 


ucat/2  >  -at  , 


(3.47) 


2(n+2)(2n+l)p 


(3.48) 


Thus,  the  thresholds  for  instability  are  determined  by  values  of  u  that 
satisfy  Eqs.  (3.40),  (3.41)  and  (3.42)  subject  to  the  condition  required  by  Eq. 
(3.48). 
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Solutions  to  the  analytical  threshold  equations 


Equations  (3.40-3.42)  may  be  numerically  solved.  The  object  is  to  find  the 
minimum  value  of  Pa  given  values  of  Rq.  j,  and  n  which  would  satisfy  the 
instability  criteria  in  Eq.  (3.48).  A  computer  program  was  developed  to  solve 
this  system  of  equations.  Using  the  program  DTHRESH  found  in  Appendix 
D,  these  equations  were  computed  to  find  threshold  regions  for  all 
combinations  of  n=2-4  and  j=l-3.  This  resulted  in  a  description  of  the 
minimum  instability  threshold  regions  in  Pa  vs.  R0  space.  The  appropriate 
constants  used  were  as  follows: 


Ambient  pressure 

Po 

1.0  bar 

Air  density 

Pg 

0.001204  g/cm3  | 

Ambient  temperature 

T 

293  K 

Driving  frequency 

f 

a/2n  =  22.22  kHz 

Gas  constant 

Rg 

8.314x10?  dyn/mol  K 

Kinematic  viscosity 

P 

0.0091  cm2/sec 

Liquid  density 

P 

1.0  g/cm3 

Molecular  weight  of  air 
Specific  heats  of  air 

M 

28.964  g/mol 

at  constant  volume 

CVg 

20.8xl07  dyn/mol  K 

at  constant  pressure 

Cpg 

2.91xl08  dyn/mol  K 

Speed  of  sound  in  water 

c 

1.5x10s  cm/s 

Surface  tension 

a 

72.5  dyn/cm 

Thermal  conductivity  of  air 

Ki 

2.5xl03  dyn/(sec  cm  K) 

The  value  of  Rq  ranged  from  10  to  100  microns.  Pressures  greater  than  0.8 
bar  were  not  treated. 
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It  can  been  seen  that  solving  Eqs.  (3.40  -  3.42)  will  result  in  both  real  and 
imaginary  values  for  u  as  well  as  positive  and  negative  values.  All 
imaginary  results  were  ignored.  In  calculating  the  real  results,  an 
interesting  feature  of  the  solutions  was  noted.  The  solution  space  of  u  as  a 
function  of  pressure  for  a  particular  radius  was  normally  described  by  that 
shown  in  Fig.  1. 


R=36.00 


Pressure  (bars) 


Figure  l:  Roots  of  the  analytical  solution,  exhibiting  a  single  threshold  point. 


The  graph  represent  all  four  solutions  for  u.  A  value  of  zero  indicates  an 
imaginary  solution  value.  The  solution  space  is  actually  three  dimensional 
(x=pressure,  y=real  solutions,  z=imaginary  solutions).  The  projection 
shown  is  the  "real"  slice  with  the  "imaginary"  slice  perpendicular  to  the 
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paper.  From  this  figure  it  is  easily  seen  that  as  the  applied  pressure 
increases,  the  instability  increases  once  a  threshold  pressure  has  been 
reached.  There  are  regions,  though,  in  which  this  is  not  true.  Figure  2 
shows  an  example  of  this  behavior. 
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Figure  2  Roots  of  the  analytical  solution,  exhibiting  multiple  threshold  points. 


Here  we  noticed  the  appearance  of  a  feature  labeled  "bubbling".  For  certain 
ranges  of  radii,  it  was  seen  that  there  was  a  "pocket"  of  instability 
preceding  the  "main"  instability  point.  Whether  this  bubbling  was  simply 
an  artifact  of  the  mathematics  or  a  real  physical  feature  was  not  clear.  If 
we  ignored  this  bubbling  feature  then  an  example  of  the  threshold  graph  is 
shown  in  Fig.  3. 


R=69.00 


.0  0.2  0.4  0.6  0.8 

Pressure  (bars) 


Figure  4:  Analytical  thresholds  for  the  lowest  pressure  threshold  for  n=2  and  j=l 
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Figure  5:  Combination  of  figures  3  and  4. 

Figure  4  shows  the  minimum  thresholds  when  bubbling  is  included.  A 
combination  of  Figs.  3  and  4  is  shown  in  Fig.  5.  Notice  that  theoretically, 
there  should  be  regions  in  which  a  bubble  is  radially  stable  at  different 
pressures.  Experimentally,  this  did  not  make  sense.  In  effect,  using  this 
result,  it  would  mean  that  if  we  started  with  a  bubble  of  a  particular  radius 
in  the  bubbling  region  at  a  pressure  below  the  first  threshold,  and  then 
increased  the  pressure,  the  bubble  should  exhibit  shape  oscillations,  and 
then  as  the  pressure  was  increased  through  the  unstable  region,  the  bubble 
should  become  radially  stable  again.  This  experiment  was  tried  repeatedly 
with  no  success.  This  seeming  contradiction  between  theory  and 
experiment  might  also  lead  one  to  suspect  that  there  are  "forbidden” 
regions  in  the  pressure  vs.  radius  curves.  These  would  be  regions  which 
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would  not  contradict  the  experimental  observations  but  simply  that  the 
particular  mode  was  not  possible  and  that  another  mode  would  engage 
keeping  the  bubble  in  a  shape  oscillation.  It  was  also  interesting  to  note 
that  even  the  numerical  integration  of  the  original  equations  of  motion, 
treated  in  the  next  chapter,  showed  similar  (although  not  identical) 
behavior  as  the  analytical  solution. 

If  we  assume  that  the  radial  instability  threshold  is  the  lowest  pressure 
which  satisfies  Eq.  (3.48),  then  the  resulting  thresholds  are  shown  in  Figs. 
6,  7,  and  8. 


Figure  6:  Analytical  thresholds  for  n=2;  j=l  (+),  2  (*),  3  (o). 
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Figure  9  shows  the  result  of  combining  all  permutations  of  n  and  j  by 
locating  the  minimum  pressure  threshold  that  would  exhibit  some  sort  of 
shape  instability. 


Figure  9:  Combination  of  figures  6,  7,  and  8  keeping  only  the  lowest  thresholds. 

By  increasing  precision  in  computing  these  equations  and  by  using  newer 
numerical  computing  techniques,  it  was  found  that  while  the  current 
results  agree  in  general  with  the  work  done  by  Eller  and  Crum,  there  are 
regions  of  differences.  It  will  be  shown  later  that  for  small  bubbles  (i.e.,  R0 
<  40p),  their  theory  does  not  predict  what  happens  experimentally 
(although  it  is  in  good  qualitative  agreement  with  bubbles  greater  than 
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about  40p).  A  possible  reason  for  this  discrepancy  is  that  Eller  and  Crum 
ignored  the  surface  tension  term  2o/R  in  Eq.  (3.9).  For  large  values  of  R, 
this  term  is  negligible,  but  for  smaller  radii  it  cannot  be  ignored.  The 
polytropic  exponent  is  another  parameter  in  which  discrepancies  could 
occur.  Figure  10  demonstrates  what  happens  when  adiabatic  or  isothermal 
assumptions  are  made. 


Figure  10:  Comparison  of  analytical  thresholds  between  polytropic  exponents  of  k  =1.0 
(isothermal),  1.4  (adiabatic),  and  calculated  from  equation  (3.3). 

It  is  seen  that  the  calculated  polytropic  exponent  gives  results  somewhere 
in  between  adiabatic  and  isothermal  with  the  calculated  value  tending 
toward  one  or  the  other  at  the  limits  of  the  bubble's  equilibrium  radius.  In 
the  next  chapter,  a  direct  integration  technique  will  be  used  which  docs  not 
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ignore  either  the  surface  tension  or  the  viscosity  terms  and  uses  a 
calculated  polytropic  exponent  for  describing  the  pressure  inside  the  bubble. 


Numerical  Solution 


Introduction 

In  the  previous  chapter,  an  analytical  solution  to  the  coupled  equations  of 
motion  of  a  driven,  pulsating  air  bubble  in  water  was  derived.  An  alternate 
solution  utilizing  a  direct  integration  technique  will  be  presented  in  this 
chapter.  The  equations  of  motion  (Eqs.  (2.60)  and  (2.61))  are 

R"R  +  |T2  =  ^Jpj  -  Poo  -  ^ -  4p|^  ,  (4.1) 

a"  +  ^-2(n-l)(n+l)(n+2)p  a’  + 

(n-1)  -]|-  +  2(n+l)(n+2)vjp-  +  (n+l)(n+2)^j  a  =  0  ,  (4.2) 

where  R=R(t)  is  the  bubble  radius,  p  is  the  density  of  water,  Pj  is  the 
pressure  inside  the  bubble,  Poo  is  the  pressure  in  the  water,  a  is  the  surface 
tension  of  water,  p  is  the  viscosity  of  water,  a=a(t)  is  the  amplitude  of  the 
shape  distortion,  v  =  p/p,  and  n  is  the  degree  of  the  spherical  harmonic. 
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Numerical  Integration 

Numerical  integration  of  these  coupled  equations,  derived  earlier,  proved  to 
be  extremely  time  consuming.  A  computer  program  (SOE,  Shape 
Oscillation  Equation  solver)  was  developed  to  calculate  the  bubble  motion 
(see  Appendix  D).  Basically,  SOE  solved  Eqs.  (4.1)  and  (4.2)  directly  by 
utilizing  an  IMSL  (IMSL,  1987)  integration  subroutine  using  Gear's 
"backward  differentiation"  technique  for  R(t)  and  a(t)  for  a  particular  value 
of  n.  To  solve  Eq.  (4.1)  a  polytropic  approximation  was  made  for  Pj: 

/R  \*^K 

pi  =  Po(ff )  .  (4.3) 

where  R0  is  the  equilibrium  bubble  radius,  R=R(t)  is  the  instantaneous 
bubble  radius,  and 


po  —  pamb+j£  >  (4.4) 

with  Pamb  being  the  ambient  pressure  in  the  liquid.  The  value  of  k,  or  the 
polytropic  exponent,  has  been  examined  by  several  workers  (Eller  (1970), 
Crum  (1983),  and  Prosperetti  (1977)).  Their  formulations  are  essentially 
equivalent  and  k  can  be  expressed  by: 
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K 


Td+dth2)'1]  1+3^^ 


sinhX-sinX 

coshX-cosX 


(4.5) 


with  the  following  definitions 


dth  =  3Cy.ll 


X  =  Ro(2oVDi)^2  , 

PlCpl 

X(sinhX+sinX)-2(coshX-cosX) 


X2(coshX-cosX)+3(Y-l)X(  sinhX-sinX) 


(4.6) 

(4.7) 

(4.8) 


where  y  is  the  ratio  of  specific  heats  of  the  gas,  o)=2xf  is  the  angular  driving 
frequency,  Ki  is  the  thermal  conductivity  of  the  gas  in  the  bubble,  pi  is  the 
gas  density,  and  cpi  is  the  specific  heat  at  constant  pressure  of  the  gas. 
Next,  we  will  drive  the  bubble  so  that  Poo  is  given  by: 


Poo  -  Pam  b(l  -  Pasin(cot))  , 


(4.9) 


where  Pa  is  the  unitless  amplitude  of  the  driving  pressure.  One  can  write 
Eqs.  (4.1)  and  (4.2) ,  using  the  substitution  R=R0x,  as 


x  =  - 


3x'2 

2x 


pR02x 

tt 

a  = 


P0x-3r  -  Pamb(  1  *  Pasin(cot))  - 


,  (4.10) 


^-+  2(n+2)(2n+l)—J——T 
.  x  P(R0x)2. 


a  + 


(n-li 


x"  n+2 

x  'p(xRo)3 


{(n+l)a  +  2px'R0) 


a 


(4.11) 
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Solutions 


The  solution  to  the  above  coupled  equations  will  give  a(t)  for  each  value  of  n. 
The  other  parameters  are  given  by: 


Ambient  pressure 

Po 

1.0  bar 

Air  density 

Pg 

0.001204  g/cm3 

Ambient  temperature 

T 

293  K 

Driving  frequency 

f 

cu/2jt  =  22.22  kHz 

Gas  constant 

Rg 

8.314xl07  dyn/mol  K 

Kinematic  viscosity 

0.0091  cm2/sec 

Liquid  density 

P 

1.0  g/cm3 

Molecular  weight  of  air 
Specific  heats  of  air 

M 

28.964  g/mol 

at  constant  volume 

Cyg 

20.8xl07  dyn/mol  K 

at  constant  pressure 

Cpg 

2.91xl08  dyn/mol  K 

Speed  of  sound  in  water 

c 

1.5x10s  cm/s 

Surface  tension 

a 

72.5  dyn/cm 

Thermal  conductivity  of  air 

Ki 

2.5xl03  dyn/(sec  cm  K) 

The  procedure  that  SOE  followed  was  to  calculate  Eq.  (4.10)  until  the  R(t)'s 
reached  a  steady-state,  periodic  solution  or  2000  driving  cycles,  whichever 
came  first.  The  criterion  for  a  steady-state  radial  oscillation  was  defined  to 
be  no  more  than  0.001%  deviation  in  the  radius  and  no  more  than  0.001% 
deviation  in  the  bubble  wall  velocity  over  three  driving  cycles.  (Actually,  the 
velocity  criterion  was  stringent  enough  so  that  the  actual  deviation  in  the 
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radius  was  never  more  than  0.00001%.)  Applying  the  steady-state  criterion 
over  three  cycles  allowed  for  detection  of  steady-state  solutions  of  period  one 
or  period  two  (i.e.,  solutions  which  showed  cyclic  behavior  every  or  every 
other  driving  period).  If  2000  driving  cycles  were  calculated  before  the 
stability  criterion  was  met,  then  the  solution  was  discarded.  A  steady-state 
solution  (t=ts)  corresponded  to  a  spherically  symmetric  bubble  pulsation. 
The  R(t)'s  leading  up  to  steady-state  were  considered  transient  solutions. 

Next,  the  bubble  was  given  a  small  perturbation.  This  meant  that  the  SOE 
program  now  solved  both  Eqs.  (4.10)  and  (4.11).  To  produce  the  initial 
perturbation,  a(t=0)  was  set  to  1.0.  It  is  interesting  to  note  that  examination 
of  Eq.  (4.11)  shows  that  it  is  independent  of  the  initial  value  of  a(t=0).  The 
value  of  1.0  was  chosen  for  convenience.  Next,  the  system  of  equations  was 
allowed  to  run  from  t  =  ts  to  t  =  ts  +  20  driving  cycles.  SOE  then  generated 
statistical  and  graphical  information.  Examples  of  the  graphical  output  is 
shown  in  the  figures  in  Appendix  C.  At  this  point,  the  reader  may  proceed 
directly  to  the  "thresholds"  section  on  page  59  without  loss  of  continuity. 
The  following  descriptions  of  the  numerical  outputs  are  included  here  for 
completeness  and  to  demonstrate  several  interesting  numerical  features. 

The  title  of  each  graph  is  in  the  following  format:  SOE _###_###,  where 
the  first  set  of  numbers  represents  the  amplitude  of  the  driving  pressure  in 
1/1000  bars,  (i.e.,  005  means  0.005  bar,  and  100  means  0.1  bar).  The  second 
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set  of  numbers  represents  the  bubble  radius  in  microns  (i.e.,  010  means  10 
microns). 

The  top  graph  in  Figs.  C1-C18  represents  the  driving  pressure  amplitude  in 
Pascals.  The  x-axis  displays  time  represented  in  number  of  periods  of  the 
driving  pressure.  The  minimum  x  value  is  ts,  or  the  number  of  periods 
required  to  attain  steady-state  oscillation.  The  second  graph  represents  the 
solution  to  the  radial  Eq.  (4.10)  (the  spherically  symmetric  term).  The 
periodicity  of  the  volume  pulsation  can  be  read  from  this  graph.  The  third 
graph  represents  the  spherical  deviation  coefficient  (an(t))  terms.  Recall 

oo 

that  the  bubble's  surface  is  represented  by  rs  =  R(t)  +  ^an(t)Yn(0).  Thus, 

n=2 

the  third  graph  is  the  nth  coefficient  of  the  nth  spherical  harmonic  term. 
The  noteworthy  feature  of  this  graph  is  the  increase,  decrease,  or  stability  of 
the  a(t)'s  as  a  function  of  time.  If  the  values  increase,  then  the  shape 
oscillation  is  unstable,  meaning  that  any  radial  instability  will  continue  to 
grow  in  amplitude  over  time.  If  the  values  decrease,  then  the  shape 
oscillations  will  damp  out  in  time  and  the  bubble  will  revert  back  to 
spherical  pulsations.  If  the  a(t)  solutions  are  stable,  then  the  threshold  for 
radial  instability  has  been  found.  Actually  achieving  a  stable  oscillation 
proved  difficult;  as  a  result  the  theoretical  thresholds  were  selected  by 
determining  the  transition  point  from  stability  to  instability.  As  with  the 
radial  plot,  the  frequency  or  periodicity  information  can  be  read  from  the 
plot. 
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The  bottom  two  graphs  represent  stroboscopic  Poincar6  plots  (Cook,  1986). 
The  left  one  represents  the  bubble  wall  velocity  vs.  bubble  radius  where  each 
point  indicates  the  instantaneous  value  of  the  bubble  velocity  and  radius  at  a 
specific  time  in  each  driving  cycle.  This  graph  shows  what  happens  from 
time  t=0  to  t=tg  leading  up  to  the  steady  state  oscillation.  This  is  basically 
the  transient  information  and  is  an  indicator  of  the  stability  of  the  radial 
pulsation.  If  the  Poincar6  phase  plot  converges  to  a  point,  then  the 
oscillation  is  stable  with  period  one.  If  it  converges  to  two  points,  then  the 
oscillation  is  stable  with  period  two,  etc.  The  other  stroboscopic  plot 
represents  the  same  information  for  the  a(t)'s  from  time  t=ts  to  20  cycles 
later.  If  it  converges  to  (0,0)  then  the  shape  oscillation  damps  out.  If  it 
diverges,  then  the  shape  oscillation  is  unstable.  Otherwise  the  shape 
oscillation  is  stable  and  may  be  either  periodic  or  non-periodic. 


Shape  Oscillation  Equation  solver 

SOE  was  run  for  each  value  of  n  =  2,  3,  and  4  over  a  range  of  initial  bubble 
radii  and  driving  pressures.  The  values  ranged  from  R=10  to  100  microns 
and  Pa  =  0.005  to  0.7  bar.  In  order  to  span  the  space  covered  by  this  range, 
over  5000  graphs  were  output  by  SOE  over  a  period  of  3  weeks.  The 
collection  of  graphs  compiled  in  Appendix  C  represent  some  typical  outputs 
from  SOE. 
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Figure  Cl  shows  a  typical  radially  stable  bubble.  This  is  a  IOji  bubble  driven 
at  0.005  bar.  Note  that  this  pressure  and  radius  can  be  read  from  the  title 
SOE_005_010.  The  solution  reached  stability  in  just  10  driving  cycles  and 
when  the  bubble  was  perturbed,  it  damped  out  in  less  than  a  cycle.  Figure 
C2  shows  a  more  typical  shape  distortion  response.  This  is  a  45|i  bubble 
driven  at  0.005  bar.  Here  the  shape  oscillation  damps  out  in  ten  driving 
cycles.  Figure  C3  shows  a  95|i  bubble  driven  at  0.005  bar.  Here  we  see  that 
this  combination  of  pressure  and  bubble  radius  is  closer  to  the  instability 
threshold  as  evidenced  by  the  protracted  decay  time  of  the  perturbation. 
Also,  the  Poincar6  phase  plots  of  the  radial  transient  motion  show  different 
behavior  on  each  plot  even  though  visually  the  radial  motion  is  basically  the 
same  and  any  shape  distortion  is  damped  out.  Figures  Cl,  C2  and  C3  show 
bubbles  that  are  driven  at  a  very  low  pressure  amplitude. 

If  the  driving  pressure  is  increased  to  0.1  bar  then  more  interesting  bubble 
behavior  is  observed.  Figure  C4  shows  a  70^.  bubble  driven  at  0.1  bar.  A 
second  harmonic  is  now  observed  in  the  radial  oscillation.  The  shape 
distortion  graph  still  shows  a  damping  out  effect  while  also  showing  other 
transient  effects.  Figures  C5,  C6,  C7,  and  C8  show  a  sequence  of  plots  in 
which  the  driving  pressure  is  0.15  bar.  Solutions  for  bubbles  of  sizes  54p., 
56|i,  58p,  and  60p  are  shown.  At  54ji  the  shape  distortion  amplitude  slowly 
damps  out  (Fig.  C5).  At  56|i  (Fig.  C6)  the  shape  oscillation  is  basically  stable 
(graphically  the  solution  looks  stable,  but  actually  it  is  slightly  decreasing) 
with  a  period  of  twice  the  driving  frequency.  The  periodicity  (period  two) 
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can  also  be  seen  from  the  accompanying  Poincar6  graph.  For  the  58p 
bubble  (Fig.  C7),  it  can  be  seen  that  the  shape  oscillation  amplitude  is 
growing.  The  appearance  of  the  second  harmonic  in  the  radial  response  is 
now  more  pronounced.  For  the  60p  bubble  (Fig.  C8)  (still  at  the  same 
driving  pressure)  the  shape  distortion  amplitude  is  again  damping  out. 
Thus,  it  was  seen  that  bubbles  in  this  size  range  went  through  a  threshold 
with  the  threshold  point  being  about  57|i  at  0.15  bar. 

This  "threshold  crossing"  feature  can  also  occur  more  than  once  at  the 
same  driving  pressure.  Figures  C9-C15  show  a  sequence  of  plots 
representing  multiple  crossings  of  the  instability  thresholds  in  radius  for 
the  same  pressure.  Here  the  pressure  is  kept  constant  at  0.175  bar.  The 
bubble  radii  range  from  54p.  to  66}i.  At  54p  (Fig.  C9)  the  shape  distortion 
solution  is  decreasing  in  time,  at  56p  (Fig.  CIO)  the  distortion  is  increasing 
in  time  indicating  a  threshold  crossing  near  55p.  At  58p  (Fig.  Cll)  and  at 
60p  (Fig.  C12)  the  shape  oscillation  amplitudes  are  increasing  while  at  62p 
(Fig.  C13)  the  shape  distortion  initially  increases  and  then  damps  out. 
Thus,  a  second  threshold  crossing  near  61|i  has  occurred.  For  a  64p  (Fig. 
C14)  bubble  the  shape  solution  again  initially  increases  and  then  damps 
out.  For  a  66|i  (Fig.  C15)  bubble,  the  solution  is  again  increasing  indicating 
a  threshold  crossing  near  65^.  This  "multiple  crossing"  effect  is  prevalent 
throughout  the  pressure  and  radius  values  used. 
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The  preceding  figures  showed  only  the  first  20  cycles  of  the  solution  after 
steady-state.  Actually,  the  calculations  were  continued  for  another  80 
cycles  for  a  total  of  100  cycles  of  the  driving  pressure.  Figure  C16  shows  an 
example  of  all  100  cycles.  Since  it  was  difficult  to  see  much  information  in 
this  type  of  graph,  20  cycles  was  deemed  sufficient  to  determine  graphically 
the  bubble's  behavior. 

Increasing  the  pressure  to  0.2  bar  showed  more  transient  behavior  in  both 
the  radial  and  the  shape  distortion  solutions.  In  fact,  some  combinations  of 
pressure  and  radius  showed  an  extremely  large  (1021)  increase  in  the  shape 
oscillation  amplitude.  These  are  obviously  non-physical  since  once  the 
bubble  begins  large  amplitude  shape  distortions  the  bubble  will  break  up. 
The  theory  does  not  include  any  breakup  information. 

Figure  C17  shows  an  interesting  Poincar6  plot.  The  steady-state  radial 
oscillation  is  a  typical  oscillation  with  a  strong  second  harmonic 
component,  but  the  transient  information  leading  up  to  the  state-state 
solution  has  an  interesting  behavior.  Analysis  of  the  transient  behavior  of 
the  SOE  plots,  while  an  interesting  project,  is  beyond  the  scope  of  this  work. 

So  far,  all  of  the  radial  responses  have  been  period  one  (i.e.,  they  repeat  once 
every  cycle  of  the  driving  frequency).  Figure  C18  illustrates  a  period  two 
response  evidencing  the  emergence  of  of  a  sub-harmonic.  The  period  two 
response  is  easily  seen  in  the  Poincar6  plot. 
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Thresholds 


SOE  generated  over  5000  of  the  graphs  outlined  above.  The  type  of  shape 
distortions  (i.e.,  the  spherical  harmonic  number,  n)  were  calculated 
separately  for  cases  of  n  =  2,  3,  and  4.  The  graphs  were  then  examined  to 
obtain  the  thresholds  for  surface  oscillation.  These  thresholds  were  defined 
as  the  transition  point  from  decreasing  to  increasing  a’s  as  a  function  of 
time.  Figures  11,  12,  and  13  show  the  pressure  thresholds  as  a  function  of 
radius  for  n  =  2,  3,  and  4. 


Radius  (microns) 

Figure  11:  SOE  numerical  thresholds  for  n=2. 


Numerical  Threshold  (N=3) 
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The  numerical  threshold  graphs  are  shown  in  grid  form.  The  plus  signs 
indicate  an  increasing  solution  to  Eq.  (4.11),  while  the  negative  signs 
indicate  a  decreasing  solution.  The  points  at  which  the  solutions  go  from 
decreasing  to  increasing  indicate  the  transition  through  the  radial 
instability  threshold.  An  adaptive  grid  approach  was  used  to  find  the  cross¬ 
over  point  from  decreasing  to  increasing  solutions.  Initially,  a  large  grid 
spacing  was  used  and  then  by  manually  looking  at  the  resulting  plots  from 
SOE,  regions  of  the  grid  were  blocked  off  and  the  grid  spacing  was 
narrowed.  This  procedure  was  repeated  until  a  definite  threshold  curve 
could  be  generated.  Figure  14  is  a  superposition  of  all  the  thresholds. 


Radius  (microns) 

Figure  14:  Minimum  thresholds  of  figures  11,  12,  and  13. 
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The  solid  line  represents  the  minimum  pressure  threshold  for  radial 
instability  as  a  function  of  bubble  radius.  The  values  of  the  mode,  n,  and  the 
frequency  multiplier,  j,  (from  d10^2)  are  also  indicated. 


Figure  15:  Overlay  of  figures  9  and  14.  Comparison  between  the  analytic  and  numerical 

solutions  to  the  equations  of  motion. 


Comparison  with  analytic  solutions 

Figure  15  shows  a  comparison  between  the  analytical  results  in  the 
previous  section  and  the  numerical  threshold  results  obtained  in  this 
section.  It  can  be  seen  that  for  bubble  radii  greater  than  40p,  the  predicted 
thresholds  for  both  the  analytic  and  numerical  solutions  agree  quite  well. 
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This  figure  demonstrates  one  of  the  important  contributions  of  this  study. 
It  shows  that  by  including  the  surface  tension  terms,  in  the  equations  of 
motion,  and  then  numerically  integrating  the  resulting  coupled  differential 
equations,  a  different  threshold  curve  is  obtained  than  that  obtained  using 
the  analytical  approach,  especially  for  smaller  bubbles. 


Below  is  a  table  of  the  mode  numbers,  n,  which  represent  the  type  of  shape 
oscillation,  determined  by  the  nth  spherical  harmonic,  and  the  frequency 
multiplier  j  determined  by  ei0^2.  For  j=l  the  shape  oscillation  will  oscillate 
at  1/2  the  driving  frequency,  for  j=2  the  shape  oscillation  will  oscillate  at  the 
driving  frequency  and  for  j=3,  at  3/2  the  driving  frequency. 


Bubble  Radius 
Range  u 

Mode  number 
n„,nn 

1 

97-100 

4,4 

1,1 

78-97 

3,3 

1,1 

63-78 

4,4 

2,2 

53-63 

2,2 

1,1 

51-53 

3,3 

2,2 

48-51 

4,4 

3,3 

36-48 

3,3 

3,3 

35-36 

2,2 

2,2 

33-35 

3,3 

3,3 

=>  33-33 

2,3 

3,3 

24-33 

4,2 

2,? 

20-24 

4,3 

2,? 

20-21 

4,2 

2,? 

18-20 

4,3 

2,? 

10-18 

4,2 

2,? 

(subscripts  a  and  n  represent  analytic  and  numeric) 
Table  1:  Analytical/Numerical  comparison 


As  seen  from  the  table,  the  analytical  approximation  agrees  with  the 
numerical  solution  quite  well  from  35|i  to  lOOp.  For  smaller  radii  though, 
the  numerical  threshold  results  are  more  reasonable.  Unfortunatly,  for 
these  smaller  bubble  radii,  transients  obscured  the  accurate  determination 
of  the  shape  oscillation  frequency  and  are  denoted  by  a  (?).  It  would  be 
expected  that  as  the  bubble  radius  decreases,  the  stability  would  generally 
increase  or  approach  a  constant  value.  The  numerical  threshold 
predictions  show  a  general  increase  in  the  stability.  As  was  stated  in  the 
analytic  section,  the  reason  for  the  non-physical  nature  of  the  analytic 
approximation  could  be  due  to  the  ignoring  of  the  surface  tension  terms  in 
the  equations  of  motion. 

The  numerical  method  used  Eqs.  (4.1)  and  (4.2),  were  derived  under  the 
assumption  of  axisymmetry.  In  theory,  a  more  general  solution,  not 
assuming  axisymmetry,  could  be  attempted  and  might  be  a  subject  for 
future  work.  Now  that  the  theoretical,  analytical  and  numerical  bases  have 
been  outlined,  the  next  section  will  detail  the  experimental  verification  of 
these  approaches. 


Mie  Scattering 


Theory 

In  this  experiment,  laser  light  was  scattered  from  an  oscillating  bubble  to 
detect  radial  and  shape  oscillations  of  the  bubble.  Scattering  laser  light  off 
an  air  bubble  in  water  to  quantitatively  measure  the  pulsations  of  bubbles 
from  about  10-100  microns  has  been  shown  to  be  a  very  sensitive  technique 
(Hansen  1983,  and  Holt  1988).  The  theory  which  describes  the  phenomenon 
of  the  scattering  of  electromagnetic  waves  off  small  particles  (ka  >  10),  is 
known  as  "Mie  Theory",  named  after  Gustav  Mie.  The  scattering  of  light  by 
a  spherical  object  has  received  considerable  attention  (Mie  1908,  Debye  1909, 
Stratton  1941,  Bom  and  Wolfe  1959).  This  theory  deals  with  the  scattering  of 
a  plane  electromagnetic  wave  by  an  isotropic,  homogeneous  sphere  of 
arbitrary  size.  The  scattered  intensity  as  a  function  of  position  is  the 
quantity  of  interest.  In  the  far  field  the  scattering  amplitude  functions  are 
given  by: 


2n+l 

Sl  =  X  n~n+l)  ( an7tn(cos8)  +  bnxn(cose))  ,  (5.1) 

n=l 

°°  2n+l 

S2=  X  ^n+i)  Un-CnCcOsO)  +  bnnn(cos8))  .  (5.2) 

n=  1 


65 


66 


The  interested  reader  is  directed  to  Appendix  B  for  a  derivation  of  these 
amplitude  functions.  The  functions  nn  and  xn  are  given  by: 

Pn\cos0) 

Jtn(cos0)  = -  ,  (5.3) 

sin0. 

xn(cos0)  =  -“-P^\cos0)  ,  (5.4) 

d0 


where  Pn  are  the  associated  Legendre  polynomials.  The  scattering 
coefficients  are  given  by: 


Vn(a)Vn'(p)  -  myn(p)Vn'(a) 

(5.5) 

a"  ~  Cn(a)Vn'(p)  -  myn(P)Cn'(a) 

,  m\}/n(a)¥n'(p)  *  ¥n(P)Vn'(a) 

On  —  ,  ^  _  * 

(5.6) 

mCn(a)Vn  (P)  -  Vn(P)Cn'(a) 

where  m  =  ki/k2,  a  =  k2a  =  27tm2a/X0,  P  =  kja  =  mot,  k  is  the  wave  number,  a 
is  the  bubble  radius,  and  X0  is  the  wavelength  of  the  incident  light  in 
vacuum.  Subscripts  1  and  2  refer  to  the  bubble  interior  and  surrounding 
medium  respectively.  The  functions  vy  and  £  are  given  by: 

yn(kr)  =  (xkr/2)^2J n+  1/2(kr)  ,  (5.7) 

(2) 

Cn(kr)  =  (xkr/2)^H;+;[/2(kr)  ,  (5.8) 


where  Jn+1/2(kr)  is  the  half-integral  order  Bessel  function  and  Hn+1/2(kr)  is 
the  half-integral  order  Hankel  function. 

The  intensity  of  the  scattered,  polarized  light  in  the  0  and  <{>  directions  is: 

Ie  =  ~^2  I  ^2  I  COs2<^)  =  ^2r-2  ,  (5.9) 

x<t>  =  -^2  I Sl  1 2sin24>  =  Iisin24>  ,  (5.10) 

where  X  is  the  wavelength  in  the  medium.  Note  that  0  and  <j>  represent  the 
perpendicular  and  parallel  components,  respectively,  to  the  scattering 
plane.  The  scattering  plane  contains  both  the  scattering  and  the  incident 
waves. 

Calculation 

In  the  experiment,  the  incident  light  was  polarized  with  the  electric  field 
vector  parallel  to  the  0=90°  plane.  The  detecting  equipment  was  also  in  that 
plane  so  that  the  only  component  detected  was  1$,  where 


X2  X2 

r«p  =  4  =  Iisin2(|’  =  ■ 


(5.11) 
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Since  all  quantities  except  Ii  were  kept  constant,  the  calculation  was 
performed  to  render  Ij  as  a  function  of  scattering  angle  (0)  and  as  a 
function  of  the  bubble  radius  (r).  To  calculate  these  quantities  a  modified 
version  of  the  computer  program  developed  by  Wiscombe  (MIEV1)  was 
used.  A  listing  of  the  modified  program  (MIENOS)  is  given  in  Appendix  D. 
The  programs  were  initially  run  on  a  MicroVAX  II,  with  runtimes  on  the 
order  of  a  few  minutes  for  simple  cases  to  over  ten  hours  for  integration 
cases.  The  programs  were  then  transferred  to  a  CYBER  205  which 
improved  performance  considerably.  Execution  times  on  the  CYBER 
ranged  from  one  to  ten  minutes.  This  allowed  for  the  production  of  a  large 
number  of  data  sets  in  a  relatively  short  time. 


Scattering  intensity  as  a  function  of  angle 

The  first  set  of  data  concerned  the  scattering  intensity  as  a  function  of  angle 
with  a  constant  bubble  radius.  Both  I9  and  I4,  were  calculated.  The 
scattering  angle  was  from  0  (forward)  to  180  (backward)  degrees.  The 
bubble  radii  ranged  from  10  to  100  microns.  Figures  C19  and  C20  (found  in 
Appendix  C)  illustrate  the  scattering.  A  representative  figure  is  shown 
here  for  a  bubble  of  a  50(i  radius. 


Scattering  Angle  (degrees) 


Figure  16:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  as  a  function  of 

scattering  angle  for  a  50g  bubble. 


In  Fig.  16,  the  dotted  lines  represent  Ii  and  the  solid  lines  I2  where 


,  f  4rc2r2 

11  =loglo|— 2—I<t> 

,  (4k2t2  t  > 

12  =  logiol-— 2  -Ie 


(5.12) 


(5.13) 


In  general,  Figs.  C19  and  C20  show  that  Ii  is  normally  slightly  greater 
than  I2.  Also,  from  about  75  to  130  degrees,  Ii  is  much  greater  than  I2.  The 
general  structure  of  the  curves  is  essentially  the  same.  Each  begins  with  a 
very  large  forward  scatter  followed  by  a  general  decline  to  a  small  peak 
around  75  to  80  degrees,  and  in  the  case  of  Ii,  a  leveling  out  up  to  180 
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degrees,  while  for  I2  ,  a  sharp  decline  to  about  100  degrees  followed  by  a 
general  rise  up  to  180  degrees. 


With  the  experimental  setup  used  in  this  study,  these  graphs  should  be 
reproducible.  However  in  practice,  the  detection  apparatus  always  has  an 
acceptance  angle  that  must  be  taken  into  consideration.  In  this 
experiment,  an  acceptance  angle  of  about  4  degrees  was  used.  To 
compensate  for  this  angle  of  acceptance,  the  scattering  programs  were 
rerun  and  integrated  over  4  degrees.  Figures  C21  and  C22  show  the 
results.  Figure  17  is  a  representative  graph  of  a  50p  bubble. 


Figure  17:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
solid  angle  of  4  degrees  as  a  function  of  scattering  angle  for  a  50fi  bubble. 
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Nearly  all  of  the  fine  structure  exhibited  in  Figs.  C19  and  C20  has  been 
eliminated.  Again,  Ii  is  generally  larger  then  I2.  Figure  18  is  a  composite 
of  I2,  and  Fig.  19  a  composite  of  Ii,  for  a  range  of  bubble  radii. 


Scattering  Angle  (degrees) 

Figure  18:  Composite  Ij  angular  Mie  scattering  result  (over  a  4  degree  solid  angle)  for 
bubble  radii:  IO4  (lower  curve),  30g,  50g,  70p,  and  90p  (upper  curve). 
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Figure  19:  Composite  I2  angular  Mie  scattering  result  (over  a  4  degree  solid  angle)  for 
bubble  radii:  lOp  (lower  curve),  30p,  50p,  70p,  and  90p  (upper  curve). 


It  is  apparent  from  the  graphs  that  to  maximize  the  detection  of  scattered 
light,  the  detector  must  be  placed  at  an  angle  somewhere  less  than  80 
degrees.  In  this  experiment,  detectors  were  placed  at  +30  degrees,  -30 
degrees,  and  80  degrees.  The  detectors  were  sensitive  enough  so  that  their 
positioning  was  not  paramount  and  their  placement  was  dictated  by 
experimental  constraints,  not  by  theoretical  considerations.  The  choice  of 
polarization  angle  was  also  dictated  by  the  same  considerations.  The  Ii 
polarization  was  chosen  since,  at  these  angles,  the  detectors  output  higher 
voltages  than  with  the  I2  polarization.  To  determine  if  these  theoretical 
graphs  matched  experimental  data,  an  experiment  was  performed  in 
which  a  bubble  of  known  size  was  levitated  in  a  tuned  cell  and  made  to 


pulsate  at  22.22  kHz  in  a  spherically  symmetric  oscillation.  (The 
experimental  apparatus  will  be  described  in  detail  in  the  next  chapter.) 
The  detector  was  then  rotated  around  the  levitation  cell  from  an  angle  of  45 
to  120  degrees.  The  output  from  the  detector  was  recorded  on  a  computer. 
Figures  20,  21,  and  22  show  the  results  for  50|i,  60p,  and  80p  bubbles. 


50  Micron 


Figure  20:  Experimental  angular  Mie  scattering  results  (asterisks)  for  a  50p  bubble, 
overlayed  by  l\  (solid  line)  and  I2  (dotted  line). 


Figure  21:  Experimental  angular  Mie  scattering  results  (asterisks)  for  a  60p  bubble, 
overlayed  by  Ii  (solid  line)  and  I2  (dotted  line). 


80  Micron 


Scattering  Angle  (Degrees) 


Figure  22:  Experimental  angular  Mie  scattering  results  (asterisks)  for  a  80p  bubble, 
overlayed  by  Ii  (solid  line)  and  I2  (dotted  line). 
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The  asterisks  represent  the  experimental  data  while  the  lines  represent  the 
predicted  scattering  amplitudes  from  Mie  scattering  theory.  The  solid  lines 
indicate  Ii  and  the  dotted  lines  I2.  Both  Ii  and  I2  have  been  normalized  to 
compare  against  the  experimental  data.  (The  normalization  is  described  in 
the  next  section.)  The  scattering  angle  is  with  respect  to  the  forward 
scattering  direction.  It  is  clear  from  these  graphs  that  the  polarization  is  in 
the  Ii  plane.  For  scattering  angles  above  80  degrees  the  prediction  matches 
the  experimental  data  quite  well.  Due  to  experimental  constraints,  angles 
less  than  40  degrees  were  not  accessible.  For  the  angles  between  50  and  80 
degrees,  the  general  shape  of  the  curves  are  similar  but  specific  differences 
are  also  apparent. 


Scattering  at  a  specific  angle  for  various  bubble  radii 

The  scattering  programs  were  then  run  keeping  the  detection  angle 
constant  and  varying  the  bubble  size.  Figures  C23-C27  show  the  scattering 
intensity  as  a  function  of  bubble  radius  for  detection  angles  of  10  to  180 
degrees.  Figure  23  illustrates  the  scattering  intensity  as  a  function  of 
bubble  radius  for  an  80  degree  detection  angle. 
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Figure  23:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
bubble  radius  for  an  80  degree  scattering  angle. 


Again,  there  is  noticeable  fine  structure.  To  reduce  the  fine  structure,  with 
the  aim  of  using  this  information  for  calibration  purposes,  the  same 
technique  of  integrating  over  a  solid  angle  was  utilized.  This  was  a  very 
compute-intensive  process  and  we  were  only  able  to  obtain  results  in  a 
reasonable  period  (about  one  hour)  when  using  a  Cyber  205  and  fully 
vectorized  computer  code.  Figures  C28-C32  show  the  results  of  this 
integration.  Figure  24  illustrates  the  results  for  an  80  degree  detection 
angle  over  a  4  degree  acceptance  angle. 
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Figure  24:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  integrated  over  a  4 
degree  solid  angle,  as  a  function  of  bubble  radius  for  an  80  degree  scattering  angle. 


Notice  that  most,  but  not  all  of  the  fine  structure  is  gone.  Examination  of 
Figs.  C28-C32  show  that  for  most  detection  angles  the  scattered  intensity  is 
not  single  valued.  The  graph  at  80  degrees  shown  in  Fig.  24  is  single  valued 
over  the  range  of  bubble  radii  considered  and  as  such  can  be  used  as  a 
transfer  curve  to  obtain  the  actual  bubble  radius  given  a  specific  intensity. 
This  fact  was  the  major  reason  for  placing  one  of  the  detectors  at  80 
degrees. 


To  verify  the  theory,  the  detector  was  positioned  at  a  fixed  location  (keeping 
the  detection  angle  constant)  and  the  bubble  size  was  varied.  A  bubble  was 
created  in  a  levitation  cell  tuned  to  22.22  kHz.  A  polarized  laser  beam  (488 
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nm)  was  scattered  off  the  bubble  and  detected  by  a  photodiode  located  80 
degrees  from  the  forward  scattering  angle  at  a  distance  of  about  150  mm 
from  the  center  of  the  bubble.  This  gave  an  acceptance  angle  of  about  4 
degrees.  Bubbles  of  various  radii  were  created  and  the  detector  output  was 
recorded.  Only  those  bubbles  that  were  spherically  symmetric  were  chosen. 
Bubble  radii  around  1/2  and  1/3  of  the  resonance  radius  (R0  =  142  pm)  were 
not  chosen  due  to  inherent  non-linearities  in  their  pulsations  and  their 
affinity  for  producing  surface  oscillations.  It  was  also  noticed  that  bubbles 
near  these  sizes  grew  very  rapidly  in  a  matter  of  seconds.  Figure  25  shows 
the  experimental  data  results  of  this  test. 


Figure  25:  Experimental  data  from  DC  detector  at  80  degrees  as  a  function  of  bubble  radius. 
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In  order  to  compare  the  Mie  scattering  prediction  to  the  experimental  data, 
the  incident  intensity  on  the  bubble  is  required  to  scale  the  prediction 
appropriately.  In  this  study,  we  were  unable  to  directly  measure  the  laser 
beam  intensity  incident  on  the  bubble's  surface.  To  compensate  for  this  a 
least-squares  fit  was  made  between  the  theoretical  and  experimental 
results  to  determine  the  multiplicitive  constant  I0.  Where  IeXp  =  Imie  /lo  • 
Figure  26  shows  the  results  of  the  comparison  between  theory  and 
experiment. 


Figure  26:  Experimental  data  from  DC  detector  at  80  degrees  as  a  function  of  bubble  radius. 
Overlaid  by  the  Mie  scattering  prediction,  Ij  (solid  line)  and  I2  (dotted  line). 


It  can  be  seen  that  the  theoretical  prediction  matches  the  experimental  data 
very  well.  The  underestimation  of  Mie  theory  at  smaller  radii  could  be 
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explained  as  a  systematic  error  in  the  experimental  data.  To  test  this 
hypothesis,  the  experiment  was  performed  under  a  variety  of  conditions, 
but  no  significant  differences  were  found.  Thus,  if  a  systematic  error  did 
occur  it  was  not  observed.  However,  differences  between  the  Mie  theory  fit 
and  the  experimental  data  were  about  one  to  two  microns  which  was  within 
the  experimental  error  estimate. 


Experiment 


Method 

In  the  preceding  chapters  we  presented  the  theoretical  foundation  for 
predicting  shape  oscillation  thresholds,  in  this  chapter  we  present  the 
experimental  results  and  comparisons  with  theory.  In  this  experiment  an 
acoustic  levitation  technique  was  used  to  position  a  single,  stably- pulsating 
air  bubble  in  water  at  a  constant  position.  In  order  to  observe  the  pulsation 
of  the  bubble,  it  was  necessary  to  levitate  the  bubble  in  water  at  a  specific 
position  so  that  a  laser  beam  could  be  scattered  off  the  bubble  for  long 
periods  of  time.  Since  an  air  bubble  in  water  experiences  a  buoyancy  force, 
an  opposing  force  is  required  to  keep  the  bubble  stationary.  In  this 
experiment  an  acoustic  stationary  wave  was  produced  in  a  cylindrical  cell. 
The  two  acoustic  radiation  forces  acting  on  a  bubble  in  this  field  are  the  so- 
called  rigid-sphere  force  (Nyborg,  1967)  and  a  force  due  to  the 
compressibility  of  the  bubble.  Crum  (1970)  observed  that  the  rigid-sphere 
terms  were  completely  dominated  by  the  compressibility  terms  for  a  gas 
bubble  and  could  be  neglected.  Eller  (1967)  derived  an  expression  for  the 
compressibility  terms  of  the  average  acoustic  force  in  the  z  direction  as 
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27t2Rn3pA2 

SPoMl-^/ao2) 


(6.1) 


where  Rn  is  the  equilibrium  bubble  radius  about  which  it  sinusodially 
oscillates,  Pa  is  the  acoustic  pressure  amplitude  at  the  position  of  the  bubble 
along  the  z  axis,  P0  is  the  hydrostatic  pressure,  Xz  is  the  wavelength  of  the 
standing  wave  in  the  z  direction,  co  is  the  driving  frequency,  and  to02  = 
3Po/pRn2  is  the  resonance  frequency  with  p  being  the  density  of  water. 
When  this  force  balances  the  buoyancy  force,  Fb  »  (4/3)7tRn5pg,  then  the 
bubble  is  acoustically  levitated.  Bubbles  driven  below  resonance  have  a 
stable  equilibrium  position  on  the  z  axis  just  above  a  pressure  maximum. 
Thus,  the  sound  field  draws  the  bubble  toward  a  pressure  antinode 
opposing  the  upward  buoyancy  force.  Figuratively,  this  can  be  depicted  as 
shown  in  Fig.  27.  During  the  positive  pressure  cycle,  the  bubble’s  volume  is 
at  its  smallest  and  the  force  due  to  the  pressure  gradient  is  upward. 
During  the  negative  pressure  cycle,  the  bubble's  volume  is  at  a  maximum 
and  the  force  is  downward.  Thus,  the  average  force  is  basically  the  sum  of 
the  forces,  and  since  the  volume  during  the  negf.Vv  cycle  is  larger  then  the 
volume  in  the  positive  cycle,  the  total  force  points  ^ownward  opposing  the 
upward  buoyancy  force.  Once  we  had  a  method  for  levitating  bubbles,  an 
experimental  apparatus  was  designed. 
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Figure  27:  Figurative  acoustic  levitation  technique. 


Figure  28  shows  a  functional  diagram  of  the  experimental  setup.  Basically, 
a  levitation  technique  was  used  to  trap  a  single  air  bubble  in  water  at  a 
specified  location  in  a  resonating  cell.  Using  this  levitation  technique  the 
trapped  bubble  would  linearly  pulsate  at  the  driving  frequency  (at 
sufficiently  low  acoustic  pressures).  Laser  light  was  then  scattered  off  the 
bubble  and  detected  by  one  or  more  photodiodes.  The  output  voltages  from 
the  photodiodes  were  recorded  on  digitizers  and  were  either  displayed  on 
oscilloscopes  or  stored  on  a  computer. 


Sync  Sync 


Figure  28:  Functional  diagram  of  complete  experimental  system. 


The  experimental  setup  consisted  of  an  acoustic  levitation  cell  filled  with 
water  mounted  on  an  y-z  translator,  a  three  watt  argon-ion  laser  operating 
at  440  mW  and  a  wavelength  of  488  nm,  a  maximum  of  three  Oriel 
photodiode  detectors  operating  with  an  inline  laser-line  filter,  and 
associated  optics  and  temperature  probes,  all  mounted  on  a  4'  x  6’  optical 
table  with  self-leveling  pneumatic  supports  for  vibration  isolation.  In 
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addition  to  the  equipment  on  the  optical  table,  two  adjoining  equipment 
racks  were  employed  to  contain  a  function  generator  driving  a  75- watt 
power  amplifier  used  to  drive  the  levitation  cell,  digitizing  and  analog 
oscilloscopes  used  to  observe  and  record  the  photodiode  output,  the  power 
supply/light  control  equipment  for  the  laser  and  other  support  equipment 
that  will  be  detailed  later. 

To  control  most  of  the  experiment,  a  MNC  PDP-11/73  computer  was  utilized 
for  process  control,  data  acquisition  and  data  storage.  The  MNC  was 
connected  into  a  VAX  network  for  further  data  reduction  and  graphical 
analysis.  With  this  setup,  bubbles  in  the  range  of  10  to  100pm  radius  could 
be  generated  easily  and  repeatably.  Observations  of  the  bubble's  pulsation, 
either  linearly,  non-linearly  or  with  shape  oscillations,  could  be  made  with 
relative  ease.  The  details  of  the  system  are  described  below. 


Apparatus 

Levitation  cell 

Figure  29  shows  a  detailed  drawing  of  the  levitation  cell.  It  consists  of  two 
3"  diameter,  1/2"  thick,  coaxially  mounted,  cylindrical  piezoceramic  (PZT-4) 
transducers  separated  by  a  3"  diameter,  1/4"  thick,  glass  cylinder.  The 
glass,  transducers  and  a  3"  diameter  Plexiglas  disc  were  glued  together 
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with  silicone  glue  to  obtain  a  watertight  enclosure.  A  threaded,  cylindrical 
piece  of  plexiglass  was  glued  directly  to  the  top  transducer  with  silicone 
glue.  A  threaded,  watertight  lid  was  fashioned  with  two  "quick-disconnect" 
connecters,  allowing  water  flow  into  and  out  of  the  cell,  maintaining  a 
closed  system.  Also,  a  small  6-32  tapped  hole  was  placed  in  the  lid  for 
insertion  of  a  temperature  probe. 


1/4"  NPT  threads 

=====  -  "■  Plexiglas  (8  threads  min) 

Figure  29:  Detail  of  acoustic  levitation  cell. 


The  transducers  were  operated  in  parallel  and  poled  to  drive  the 
transducers  in  their  thickness  mode.  The  transducers  had  a  resonance 
frequency  of  44  kHz  and  were  driven  below  that  resonance  at  22.22  kHz. 
This  choice  of  frequency  was  dictated  by  the  geometry  of  the  cell  and  was 
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consistently  used  throughout  the  experiment.  At  this  frequency,  the 
standing  wave  generated  in  the  cell  was  in  the  (r,0,z)  mode  of  (1,0,3).  The 
main  antinode  was  located  slightly  below  the  geometric  center  of  the  cell. 
This  was  due  to  the  fact  that  the  cell  was  not  completely  filled  with  water 
and  that  the  bottom  (Plexiglas  plate)  and  top  (air)  surfaces  were  not  the 
same. 

Extreme  care  had  to  be  taken  to  ensure  that  all  surfaces  were  free  of 
bubbles.  Any  extraneous  bubbles  would  greatly  affect  the  pressure  profile 
in  the  cell.  The  water  in  the  cell  was  filtered  to  0.1  micron  and  most 
organics  were  removed  using  a  Bamstead  water-treatment  system.  Before 
any  experiment,  the  water  was  allowed  to  sit  in  the  sealed  cell  with  low 
power  applied  to  the  transducers  for  approximately  one  hour.  This  allowed 
the  water  to  reach  dissolved  gas  equilibrium  and  to  be  in  thermal 
equilibrium  with  the  cell.  Power  had  to  be  applied  to  the  cell  during  this 
time  since  the  transducers  had  a  warm-up  period  of  about  15  minutes,  after 
which  their  temperature  remained  essentially  constant.  To  ensure  that  the 
water  was  saturated  with  air,  the  cell  was  briskly  shaken  for  a  few  seconds 
about  5  minutes  prior  to  an  experiment. 

The  cell  was  mounted  on  an  y-z  translation  stage,  with  the  x-axis  being 
defined  as  the  direction  of  the  laser  beam  parallel  to  the  plane  of  the  optical 
table.  The  translators  provide  0.001"  resolution  graduations  and  1"  travel 
in  both  the  y  and  z  directions.  The  levitation  cell  was  driven  by  a  75-watt 
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Krohn-Hite  7500  power  amplifier  operated  by  a  Hewlett-Packard  3325B 
synthesizer/function  generator,  which  provided  a  22.22kHz  sine  wave.  The 
output  of  the  power  amplifier  was  monitored  by  a  Hewlett-Packard  3455A 
digital  multimeter.  This  arrangement  allowed  constant  monitoring  of  the 
power  applied  to  the  cell.  The  function  generator  was  controlled  via  an 
IEEE-488  interface  by  a  MNC  PDP-11/73  computer.  The  sine  wave  produced 
by  the  function  generator  was  monitored  by  a  Tektronix  T9 12  10  MHz  analog 
storage  oscilloscope  after  being  amplified  by  20  dB  by  a  Hewlett-Packard 
465A  amplifier.  With  this  setup  the  pressure  inside  the  cell  could  be 
precisely  monitored  and  changed  as  needed. 


Optical  Scattering  System 

Figure  30  shows  a  detailed  drawing  of  the  optical  scattering  system.  A  3- 
watt  water-cooled  Lexel  model  95  argon-ion  laser  was  operated  at  the  488 
nm  wavelength  producing  an  effective  single  line  output  of  440  mW  in  the 
TEMoo  mode.  A  rotating  polarizer  was  attached  to  the  laser  providing  a 
1200:1  linear  polarization  ratio.  The  polarizer  was  positioned  such  that  the 
electric  field  vector  was  parallel  to  the  scattering  plane,  and  consequently  in 
the  x-y  plane,  parallel  to  the  optical  table.  The  laser  was  mounted  on  the 
optical  table  and  the  laser  beam  was  raised  and  reflected  90  degrees  by  two 
Oriel  99.8%  reflection  mirrors  to  illuminate  the  levitation  cell.  The  laser 
beam  had  a  1/e2  width  of  1.0  mm  nominal  and  was  aligned  such  that  it  was 
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parallel  to  the  optical  table  and  passed  through  a  diameter  of  the  levitation 
cell.  This  laser  beam  width  was  large  enough  to  completely  illuminate  all 
the  bubbles  in  the  size  range  used.  The  water  circulation  system,  power 
supply,  and  light  control  system  were  mounted  in  an  adjoining  rack. 


Figure  30:  Detail  of  optical  scattering  system. 


The  light  detection  system  consisted  of  the  following:  There  were  a 
maximum  of  three  Oriel  7182-1  photovoltaic  silicone  photodiodes  with 
integral  preamplifier,  each  with  a  detection  area  of  100  mm2.  The 
photodiodes  were  mounted  in  Oriel  71910  hoods  with  an  integral  488  nm 
laser-line  transmission  filter  and  circuit  board  used  for  mounting  the 
silicone  detector.  Figure  31  shows  the  schematic  of  the  detection  circuit. 
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The  internal  25kQ  potentiometer  was  used  to  compensate  for  any  dark 
voltage  or  bias  current.  The  external  resistor  controlled  the  amplification 
and  bandpass  characteristics  of  the  photodiode. 


To  obtain  maximum  amplification,  bandwidth  must  be  sacrificed.  Two 
different  circuits  were  used  in  this  experiment:  The  first  (or  so-called  DC) 
circuit  used  a  10  MQ  feedback  resistor,  which  allowed  for  maximum 
amplification  with  a  bandpass  of  DC  to  1  kHz.  This  detector  was  DC 
coupled  and  was  used  to  obtain  the  average  size  of  the  bubble,  as  will  be  seen 
later.  The  other  two  detectors  were  AC  coupled  and  utilized  a  100  kf2 
feedback  resistor  for  a  bandpass  of  DC  to  100  kHz.  By  utilizing  both  types  of 
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detection  we  could  obtain  the  average  size  of  the  bubble  while 
simultaneously  viewing  the  pulsations  of  the  bubble. 

The  reason  for  using  two  different  detectors  instead  of  one  DC  coupled 
detector  was  the  dynamic  range  of  the  digitizers  used  in  this  experiment. 
The  change  in  intensity  as  a  function  of  time  as  the  bubble  pulsated  was  on 
the  order  of  1%  to  10%  of  the  average  radius,  which  did  not  allow  for 
adequate  resolution  of  the  pulsation  when  superimposed  on  the  DC 
component. 

The  voltage  output  by  the  detectors  was  proportional  to  the  incident  intensity 
scattered  from  the  bubble,  which  could  be  related  to  the  bubble’s  size.  The 
calibration  technique  is  presented  later.  The  detector  output  was  sent 
directly  to  three  digitizers  in  an  Hewlett-Packard  5183U  waveform 
recorder/digitizing  oscilloscope.  Also,  the  "AC"  outputs  were  connected  to 
a  Tektronix  2235  100  MHz  analog  oscilloscope  while  the  "DC'  outputs  were 
connected  to  a  Tektronix  T912  10  MHz  storage  oscilloscope.  This  allowed  for 
real-time  monitoring  of  the  bubble's  movement.  The  "DC"  signal  was  also 
routed  to  the  MNC  computer  for  threshold  triggering  measurements.  The 
digital  and  analog  oscilloscopes  were  triggered  by  the  function  generator 
via  a  sync  signal.  The  MNC  computer  also  controlled  the  digitizers  as  well 
as  the  function  generator.  With  this  optical  detection  system,  various 
properties  of  scattered  light  from  a  pulsating  bubble  could  be  observed. 
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Support  equipment 

In  addition  to  the  equipment  listed  above,  various  pieces  of  support 
equipment  were  used.  To  observe  the  bubbles  in  the  cell  without  the  laser 
beam  activated,  a  Bausch  &  Lomb  31-35-30  spotting  light  was  used.  This 
light  would  backlight  the  bubble  so  that  it  could  easily  be  seen  with  the  eye. 
To  perform  the  rise-time  measurements  (discussed  later)  additional 
equipment  was  needed  as  shown  in  Fig.  32  below. 


Figure  32:  Detail  of  sound  cutoff  apparatus. 
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It  was  required  that  the  sound  field  in  the  cell  be  intermittently  turned  off 
and  on  while  taking  rise-time  measurements.  Also  the  time  that  the  sound 
field  was  off  was  needed,  as  well  as  a  means  of  determining  how  far  the 
bubble  rose  while  the  sound  was  off.  To  do  the  timing,  a  powered  relay  was 
used  to  turn  the  sound  field  off  and  on  using  a  momentary  switch.  This 
switch  was  powered  by  a  Tenelec  TC  930A  power  supply.  The  switch  also 
controlled  a  counting  circuit,  which  consisted  of  a  Wavetek  model  1182A 
4MHz  function  generator  operating  in  a  square  wave  mode  at  1  MHz,  and 
an  EG&G  Ortec  875  counter.  When  the  switch  was  turned  off,  the  function 
generator  drove  the  counter  to  count  in  microseconds.  When  the  switch 
was  released,  the  counter  would  stop.  Various  other  optical  accessories, 
mounting  hardware  and  electronic  equipment  were  used  at  different  stages 
of  the  experiment  and  will  not  be  itemized. 

With  this  experimental  setup  we  have  improved  upon  previous  work  done 
by  Hansen  (1983)  and  by  Holt  (1988).  This  system  is  reliable,  repeatable,  and 
relatively  easy  to  use  to  observe  the  behavior  of  a  levitated  air  bubble 
pulsating  in  water. 


Tuning  the  levitation  cell 

In  order  to  maximize  the  pressure  in  the  cell,  the  cell  must  be  tuned  to  its 
resonance  frequency.  This  allows  a  minimal  voltage  to  be  applied  to  the 
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transducers,  and  since  the  transducers  have  a  tendency  to  heat  over  time,  a 
minimal  voltage  was  desired  so  as  not  to  affect  the  temperature  of  the  water 
in  the  cell. 

During  experimental  runs,  the  tuning  was  accomplished  by  filling  the  cell 
completely  with  water  and  then  removing  40cc's  of  water  from  the  cell. 
Voltage  was  applied  to  the  cell  and  a  bubble  was  created  (the  actual  method 
for  bubble  creation  will  be  discussed  later).  Once  the  bubble  was  levitated, 
the  generator  frequency  was  altered  (while  the  generator  voltage  remained 
constant)  so  that  the  bubble  would  move  to  its  lowest  stable  position  in  the 
cell.  If  the  frequency  was  higher  then  22.22  kHz,  water,  was  added  to  the 
cell;  if  lower,  then  water  was  removed.  As  the  water  level  approached 
resonance  height,  the  applied  generator  voltage  had  to  be  lowered  to  keep 
the  bubble  linearly  oscillating.  This  procedure  was  continued  until  the  cell 
was  at  resonance.  Large  bubbles  (~  80  microns)  were  used  to  calibrate  the 
cell  in  this  way  due  to  the  fact  that  small  changes  in  the  cell’s  resonance 
characteristics  affected  large  bubbles  more  than  small  bubbles. 

To  check  that  this  was  a  valid  method  of  calibration,  a  needle  hydrophone 
was  mounted  vertically  above  the  cell  and  immersed  in  the  water.  The  cell 
was  filled  with  water  and  40cc's  were  removed.  The  hydrophone  was  then 
placed  at  the  location  of  the  antinode  near  the  center  of  the  cell  and  the 
frequency  was  altered  to  maximize  the  signal  output  from  the  probe.  If  the 
frequency  was  above  22.22  kHz,  water  was  added  to  the  cell;  if  less  than, 


95 


water  was  removed.  When  the  hydrophone  was  unable  to  sense  any 
difference  in  pressure  when  the  frequency  was  changed  a  small  amount, 
around  22.22  kHZ  (~±20  Hz),  the  cell  was  said  to  be  calibrated  to  the 
accuracy  of  the  probe.  The  probe  was  then  removed,  and  a  bubble  was 
created  in  the  cell.  The  frequency  was  again  altered  around  22.22  kHz  to 
determine  if  the  cell  was  indeed  at  resonance.  It  was  determined  that  the 
bubble  method  of  tuning  the  cell  was  much  more  sensitive  to  frequency 
changes  and  water  level  than  the  probe  method.  With  large  linearly 
pulsating  bubbles,  one  could  observe  vertical  bubble  motion  when  the 
frequency  was  changed  by  as  little  at  10  Hz. 

Keeping  the  cell  timed  over  the  time  period  of  a  data  run,  which  lasted 
anywhere  from  one  minute  to  one  hour,  proved  to  be  a  difficult  task.  The 
resonance  of  the  cell  changed  mostly  due  to  temperature  fluctuations  as  the 
cell  did  not  have  any  protection  from  the  ambient  air.  Also,  evaporation 
played  a  role  until  a  cover  was  machined  to  seal  the  top  of  the  cell.  This  had 
an  added  benefit  in  that  the  cell  became  nearly  a  closed  system,  so  that  dust 
from  the  laboratory  air  did  not  contaminate  the  water.  The  cell  was  not  a 
completely  closed  system,  however,  in  that  a  tiny  hole  was  left  in  the  top  for 
a  temperature  probe.  During  data  runs,  the  cell  was  checked  many  times 
for  resonance  fluctuations.  The  criterion  used  was  that  if  the  tuning 
changed  more  than  20  Hz  at  any  time  during  the  data  run,  then  the  data 
was  declared  invalid  for  that  run. 
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Bubble  Radius  Calibration 

The  first  problem  encountered  in  this  experiment  was  how  to  accurately 
determine  the  size  of  the  air  bubbles  in  the  levitation  cell.  Visual 
observation  was  tried,  but  due  to  the  small  bubble  sizes  and  the  geometry  of 
the  cell,  viewing  the  bubble  through  a  measuring  microscope  proved  futile. 
A  way  to  determine  the  bubble  size  as  a  function  of  time  in  real-time  was 
needed.  A  technique  applied  successfully  by  Hansen  (1983)  and  Holt  (1988) 
employed  scattering  laser  light  off  the  bubble.  In  effect,  the  bubble  could  be 
"photographed"  in  real-time  as  it  radially  pulsated  at  frequencies  around  20 
kHz.  In  order  to  use  this  method,  a  calibration  of  the  scattered  light  as  a 
function  of  bubble  radius  was  needed.  To  accomplish  this,  a  bubble  rise¬ 
time  technique  was  employed  (Hansen  1983). 

Figure  33  shows  the  experimental  arrangement  for  the  rise-time 
measurements.  A  levitation  cell  filled  with  water  was  tuned  to  22.22  kHz. 
A  bubble  was  then  created  and  levitated  in  the  cell.  The  position  of  the 
bubble  relative  to  the  cell  could  be  altered  by  varying  the  voltage  applied  to 
the  transducers.  An  argon-ion  laser,  positioned  at  a  fixed  height, 
illuminated  the  bubble.  The  position  of  the  bubble  relative  to  the  laser  beam 
could  be  maintained  by  vertical  (z)  and  horizontal  (y)  translators  supporting 
the  cell.  A  photodiode  was  placed  at  an  angle  of  80  degrees  from  the 
forward  scattering  direction.  The  position  of  the  photodiode  was  chosen  due 
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to  a  consideration  of  Mie  scattering  theory  and  convenience  (an  optical 


Sync 

Figure  33:  Functional  diagram  of  rise-time  measurements  experimental  apparatus. 


A  vertically-graduated  microscope  objective,  shown  in  Fig.  34,  was 
positioned  so  that  the  bubble  was  visible  over  ±lcm  of  vertical  bubble  travel. 
The  graduations  in  the  microscope  were  calibrated  by  immersing  a  small 
ruler  in  the  water  and  viewing  the  ruler  through  the  microscope.  Once 
calibrated,  the  position  of  the  microscope  relative  to  the  laser  beam  was 
fixed.  In  this  experiment,  the  laser  beam,  microscope  and  optical  detector 
were  attached  to  an  optical  bench  and  not  moved.  Only  the  levitation  cell 
had  freedom  of  movement. 
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Image  is  inverted 
so  that  the  bubble 
seems  to  "fall"  instead 
of  "rise". 


Approx,  size 
of  bubble 


Figure  34:  Detail  of  graduated,  viewing  microscope. 

The  rise-time  calibration  procedure  was  as  follows:  First,  a  bubble  was 
created  in  the  cell  and  positioned  to  reside  completely  in  the  laser  beam. 
Next,  the  DC  and  AC  voltage  outputs  of  the  photodiodes  were  recorded.  The 
AC  output  was  viewed  on  an  analog  oscilloscope  to  ensure  that  the  bubble 
pulsation  was  linear  (i.e.,  only  radial  pulsations  of  a  spherical  bubble  were 
allowed).  The  bubble  was  then  moved  slightly  above  the  laser  beam  by 
adjusting  the  vertical  translator  so  that  the  bubble  could  be  viewed  by  the 
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Next,  while  viewing  the  bubble  through  the  microscope,  the  sound  field  in 
the  cell  was  abruptly  turned  off  which  simultaneously  activated  a  timer. 
Then  the  bubble  was  allowed  to  rise  a  specified  number  of  microscope 
graduations.  Since  the  bubble  tended  to  dissolve,  this  distance  was  kept  to  a 
minimum.  To  ensure  that  the  bubble  did  not  appreciably  dissolve  during 
this  measurement,  the  position  of  the  bubble  was  noted  when  the  sound 
field  was  turned  back  on.  If  it  did  not  return  to  the  same  location  as  it 
originated,  or  if  the  DC  scattered  voltage  was  different  then  the  original,  the 
data  point  was  declared  invalid.  The  distance  the  bubbles  rose  were  on  the 
order  of  5-15  graduations,  depending  on  bubble  size. 

When  the  bubble  reached  a  specified  height,  the  sound  field  was  again 
activated,  thus  stopping  the  timer,  and  the  bubble  returned  to  the  center  of 
the  cell.  The  distance  risen,  the  time  for  the  bubble  to  rise,  the  relative 
position  of  the  bubble  to  a  fixed  origin,  the  generator  voltage,  the  ambient 
temperature,  the  water  temperature,  the  laser  beam  intensity,  and  the  AC 
and  DC  scattering  voltages  were  recorded.  A  given  bubble  was  allowed  to 
rise  at  least  five  times  while  all  information  was  recorded.  Figure  35  shows 
the  scatter  in  the  rise-time  measurements  as  a  function  of  event.  Each 
individual  data  point  shown  represents  a  separate  bubble.  The  error  bars 
on  each  point  indicate  the  maximum  scatter  in  the  recorded  rise-time  per 
bubble.  It  can  be  seen  that  a  variety  of  bubble  sizes  were  considered.  The 
number  of  rise-time  measurements  per  bubble  ranged  from  five  to  eight. 
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From  this  figure  we  can  estimate  the  average  error  in  the  rise-time 
measurements  to  be  about  3-5%. 

Bubble  Rise-times  vs.  Event 


Figure  35:  Bubble  rise-times  vs.  event  with  error  bars. 


There  were  three  main  sources  of  error.  The  first  was  the  reaction  time  of 
the  operator  in  turning  on  the  sound  field  after  the  bubble  had  risen  a 
certain  amount.  After  many  trials,  this  time  was  minimized  and  was 
reduced  to  about  0.3  seconds,  which  remained  essentially  constant  over  the 
data  sets.  The  second  error  was  due  to  parallax  that  occurred  while 
viewing  the  bubble  through  a  microscope.  It  was  determined  that  these 
errors  tended  to  increase  as  a  function  of  the  tiredness  of  the  observer.  Due 
to  this,  the  data  sets  were  limited  to  a  maximum  of  one-hour  runs,  with  no 
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more  than  three  runs  in  a  single  day.  The  third  and  most  inconsistent 
error  arose  from  currents  in  the  water,  both  thermal  and  pressure  related. 
For  bubbles  larger  than  40  microns  in  radius  these  current  effects  were 
negligible,  but,  for  bubbles  less  than  40  microns,  the  currents  could 
noticebly  affect  the  vertical  motion  of  the  rising  bubble.  When  such  effects 
were  obvious  to  the  observer,  the  data  set  was  discarded.  In  examining  Fig. 
35  it  is  obvious  that  for  larger  bubble  sizes  the  scatter  was  greater.  This  was 
mainly  due  to  the  reaction  time  error,  since  the  large  bubbles  were  rising 
very  rapidly.  To  avoid  some  systematic  errors,  the  data  sets  were  taken  two 
ways.  The  first  was  to  start  with  a  small  bubble,  and  by  forcing  the  bubble  to 
grow  by  rectified  diffusion,  take  data  sets  over  a  large  range  of  radii  for  the 
same  bubble.  To  determine  if  there  was  any  systematic  error,  a  second 
method  was  employed  in  which  bubbles  of  various  sizes  were  created 
randomly  and  only  used  for  one  rise-time  trial.  There  was  no  general  trend 
in  the  data  using  either  method.  Figure  36  shows  the  average  rise-time  of 
the  bubbles  vs.  the  scattered  DC  voltage. 
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In  order  to  convert  the  rise-times  to  bubble  radii,  a  drag  law  was  used.  If 
one  has  a  bubble  rising  at  terminal  velocity,  U,  in  water,  the  drag  force  is 
given  by  (Milne-Thomson,  1968) 


Fd  =  |pU2jcR02Cd  , 


(7.1) 


where  p  is  the  density  of  water,  R0  is  the  radius  of  the  bubble,  and  Cd  is  the 
drag  coefficient.  The  forces  acting  on  the  bubble  are  weight,  drag  and 
buoyancy,  which  must  be  balanced.  The  resulting  equation  is 

Fw  +  Fd  =  Fb  (7.2) 


i 
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or 


where  pa  is  the  density  of  the  air  in  the  bubble  and  g  is  the  acceleration  due 
to  gravity.  Solving  for  R0  in  Eq.  (7.3)  one  can  arrive  at 


Ro  = 


3U^CWjM 

8g  lp-paj  ' 


Since  pa  «  p  we  can  write  Eq.  (7.4)  as 


„  3^0 

R°“  8g 


(7.4) 


(7.5) 


The  drag  coefficient,  Cd>  is  normally  expressed  as  a  function  of  the 
Reynolds  number,  Re  =  2R0U/p,  where  p  is  the  kinematic  coefficient  of 
viscosity  of  the  fluid.  For  rigid  spheres,  Stokes  calculated  Cd  =  24/Re. 
Numerous  drag  laws  have  been  determined  empirically.  The  law  which 
will  be  used  here  was  determined  by  Schiller  and  Nauman  (Clift,  et  al., 
1978).  This  "law",  which  is  actually  a  fit  to  a  set  of  experimental  data,  was 
chosen  so  as  to  be  consistent  with  other  recent  works  (Hansen  1983,  and 
Holt  1988).  Equation  (7.5)  then  becomes 
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■q  3U2  24  . .  iHE. 

R°~  8g  Re  1  +  °-15Re  •  >=  2gR0 


1  +  0.241 


fRoUf-687 

M-  J 


(7.6) 


where  R0  must  be  solved  for  iteratively.  Thus,  by  using  this  drag  law,  the 
rise  times  can  be  converted  into  bubble  radii,  thereby  calibrating  the 
detected  intensity  of  scattered  light  from  the  bubble  as  a  function  of  bubble 
radius.  The  calibration  result  is  shown  below  in  Fig.  37. 


Mie  scattering  theory  can  also  be  used  to  test  the  validity  of  the  rise-time 
method.  Figure  38  shows  the  predicted  relative  intensity  for  various  radii  at 
an  80  degree  scattering  angle  (solid  line).  The  symbols  represent  the 
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experimental  data.  Since  the  incident  intensity  on  the  bubble  could  not  be 
determined,  the  theoretical  prediction  was  normalized,  as  in  the  preceding 
chapter,  and  compared  to  the  experimental  data.  It  can  be  seen  that  there 
is  general  agreement  between  theory  and  experiment. 


Calibration  Data 


Figure  38:  Overlay  of  Fig.  37  and  normalized  Mie  scattering  prediction. 


Pressure  Calibration 

One  of  the  most  difficult  experimental  problems  encountered  was  that  of 
determining  the  pressure  exerted  on  the  bubble  in  the  cell.  The 
experimental  apparatus  used  in  measuring  the  position  of  the  bubble  in  the 
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sound  field  relative  to  some  fixed  position  as  a  function  of  pressure  is  shown 
in  Fig.  39. 


Sync 

Figure  39:  Schematic  of  pressure  calibration  technique  using  bubble  position  in  the 

levitation  cell. 


The  procedure  for  pressure  field  calibration  is  to  generate  a  bubble  of  fixed 
size,  and  while  slowly  increasing  the  pressure  in  the  cell,  record  its 
position  relative  to  some  fixed  point.  The  results  using  this  technique  are 
shown  in  Fig.  40. 


107 


200 

150 

c 

o 

1 1® 
Om 

N 

50 

0 


This  method  has  many  complications,  the  most  prevalent  being  the  fact 
that  the  bubble  is  a  nonlinear  oscillator.  Thus  the  position  of  the  bubble  as  a 
function  of  size  and  pressure  is  not  a  simple  relationship.  Another  method 
of  determining  the  pressure  in  a  resonating  cell  is  to  utilize  a  buoyancy- 
force  /  acoustic-force  balance  technique  (Crum,  1970).  Here,  the  buoyancy 
force  is  balanced  against  the  acoustic  force  on  the  bubble.  Since  the  bubble 
should  remain  at  the  same  location  in  the  cell  for  a  given  bubble  size  and 
driving  pressure,  this  method  should  be  fairly  accurate.  The  theory  is  as 
follows: 


Scattered  Intensity  (mV  DC) 

Figure  40:  Resuits  of  bubble  size  vs.  Z  position. 
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For  an  air  bubble  in  water  to  maintain  a  stationary  position,  the  applied 
standing  wave  acoustic  force  must  balance  the  buoyancy  force,  Fb,  on  the 
bubble 


Fb  =  Vpg  , 


(8.1) 


where  V=V(t)  is  the  volume  of  the  bubble,  p  is  the  density  of  water,  and  g  is 
the  acceleration  due  to  gravity.  The  time  average  volume  is  given  as 


•  (a2) 

where  R<,  is  the  equilibrium  radius  of  the  bubble  and  R(t)  is  the  radius  of  the 
bubble  as  a  function  of  time.  The  angle  brackets  represent  a  time  average. 
Inserting  Eq.  (8.2)  into  Eq.  (8.1),  the  average  buoyancy  force  can  be  written 
as 

Fb=Kopg((lr)3)  •  <8-3> 

If  the  acoustic  field  is  then  balanced  against  the  buoyancy  force,  the  bubble 
will  "levitate";  i.e.,  remain  in  a  stationary  position.  The  acoustic  force  is 
given  by 
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FaU\t)  =  -  (V(t)VP(r,t))  ,  (8.4) 

where  P(r,t)  is  the  acoustic  pressure  field.  We  will  let  the  pressure  field  be 
represented  by 


P(r,t)  =  P«  -  Pa  sin(kz)  cos(oot)  ,  (8.5) 


where  Poo  is  the  ambient  pressure  in  the  liquid  in  the  absence  of  the  acoustic 
field,  Pa  is  the  amplitude  of  the  applied  field,  to  is  the  angular  driving 
frequency  of  the  applied  pressure,  z  is  the  position  of  the  bubble  relative  to 
some  fixed  position  on  the  .z  axis,  and  k  =  2n/'kz  is  the  experimentally 
measured  wave  number.  The  wavelength,  Xz,  is  determined 
experimentally  by  measuring  the  vertical  distance  between  pressure  nodes 
in  the  cell  using  a  hydrophone.  If  we  take  the  gradient  of  Eq.  (8.5)  and 
insert  the  result  into  Eq.  (8.4),  the  magnitude  of  the  acoustic  force  is 


Fa  =  |rcRg(Pakcos(kz))^^^  cos(cot)^ 


(8.6) 


The  condition  for  the  existence  of  a  stationary  bubble  is  found  by  equating 
Eqs.  (8.3)  and  (8.6)  and  solving  for  Pa: 
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X 


Pg((§2)  ^  =  |jtR^(Pakcos(kz))^^^-j  cos(rnt)^  , 


(8.7) 


which  gives: 


Pa 


(8.8) 


If  we  use  only  linearly  pulsating  bubbles  and  assume  a  small  amplitude 
approximation,  then  the  radius  of  the  bubble  as  a  function  of  time  can  be 
given  by 


R(t)  =  R0(l+x(t))  .  (8.9) 

Next,  performing  a  power  series  expansion  in  x  of  Eq.  (8.8)  and  retaining 
only  the  first  order  terms  in  x  we  have 

*  1  ,  (8.10) 

cos(cot)  )  *  3<x  cos(cot))  ,  (8.11) 


Ill 


so  that  Eq.  (8.8)  is  approximately 


Pa 


_ Pg _ 

3kcos(kz)  (x  cos(cot)) 


(8.12) 


The  linearity  of  a  bubble  oscillation  can  be  determined  experimentally  by 
detecting  light  scattered  from  the  pulsating  bubble  by  a  photodiode  and 
displaying  the  output  on  an  oscilloscope  or  spectrum  analyzer.  In  theory, 
all  of  the  quantities  in  Eq.  (8.12)  can  be  measured  experimentally.  The 
values  were  determined  as  follows:  p  =  1.0  g/cm3,  g  =  980.0  cm/s2,  co  =  2jtf, 
f=22.22  kHz,  and  k  =  2jzfkz.  The  value  of  Xz  was  experimentally  determined 
by  using  a  hydrophone  probe.  A  needle  hydrophone  was  mounted  vertically 
over  the  center  of  the  levitation  cell,  which  was  filled  with  water  and  timed 
to  22.22  kHz.  The  output  voltage  of  the  hydrophone  was  sent  to  a  computer 
through  an  analog-to-digital  converter.  The  hydrophone  probe  was 
immersed  in  the  water  and  voltage  readings  were  taken  at  specified 
intervals  along  the  z  axis.  Figure  41  shows  an  example  of  a  data  set 
obtained  in  this  manner.  \zt 2  was  then  determined  from  the  data  and  \z 
was  found  to  be  53  cm. 
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Figure  41:  Pressure  amplitude  (given  in  hydrophone  voltage  units)  in  the  cell  as  a 

function  of  height  at  0.1  bar. 

The  only  quantity  left  to  determine  was  (x  cos((Dt)),  which  is  a  convolution  of 
the  amplitude  of  the  linear  oscillation  of  the  bubble  as  a  function  of  time  and 
a  cosine  function  of  the  driving  frequency.  This  value  was  theoretically 
calculated  by  Crum  and  Prosperetti  (1983).  The  value  of  (x  cos(cot))  could 
also  be  determined  experimentally.  The  only  difficulty,  which  is  a 
substantial  one,  is  to  determine  the  phase  relationship  between  the  driving 
frequency  and  the  bubble  pulsation  frequency.  This  information  was  not 
available  in  this  experiment.  It  was  reported  by  Holt  (1988)  that  the 
theoretical  method  used  was  not  sufficient  to  determine  the  pressure  in  the 
cell  and  therefore  he  used  a  "best-fit"  resonance  approach  to  determine  the 
pressure.  Gaitan  (1989)  has  indicated  that  an  improved  theoretical  analysis 
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can  been  done,  which  he  compared  against  a  "free-field"  method  which 
gave  more  consistent  results. 

A  more  direct  approach  to  measuring  the  pressure  in  the  cell  is  to  immerse 
a  hydrophone  into  the  cell  and  measure  it  directly.  The  experimental 
problem  is  how  to  measure  the  pressure  in  the  cell  without  the  hydrophone 
affecting  the  pressure  profile.  To  do  this  we  used  a  long  needle  hydrophone 
mounted  vertically  along  the  z-axis  of  the  levitation  cell.  The  hydrophone 
was  mounted  to  allow  three  degree  of  freedom  of  movement.  The 
hydrophone  could  travel  in  the  x,  y,  or  z  plane  with  a  0.1  mm  resolution  and 
with  50  mm  of  travel  in  the  x  and  y  directions,  and  along  the  entire  cell 
height  in  the  z  direction.  In  this  way  the  entire  pressure  profile  in  the  cell 
could  be  measured.  The  probe's  movement  was  independent  of  the  cell's 
movement.  Data  was  taken  at  1.0  mm  intervals.  This  extremely  time- 
consuming  task  gave  the  pressure  profile  in  the  cell  in  three  dimensions. 


Pk-Pk  Voltage  (mV)  3  Pk'Pk  Voltage  (mV) 
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12:  Slice  of  the  pressure  in  the  x  direction  along  the  y=z=center  axis. 


Figure  43:  Slice  of  the  pressure  in  the  y  direction  along  the  x-z=center  axis. 
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Figure  44:  Slice  of  the  pressure  in  the  z  direction  along  the  x=y=center  axis. 


Figures  42,  43,  and  44  represent  the  data  obtained  along  the  x,  y,  and  z  axes 
respectively.  Due  to  the  long  period  of  time  that  elapsed  between 
measurement  of  the  first  and  last  data  point  in  a  data  run,  the  following 
procedure  was  used:  First,  the  cell  was  tuned  to  22.22  kHz,  then  the  probe 
was  moved  along  a  particular  direction  starting  in  the  center  of  the  cell. 
The  probe  was  moved  in  1.0  mm  increments  and  the  voltage  from  the  probe 
was  recorded.  When  the  probed  reached  a  cell  wall,  its  direction  was 
reversed  and  data  was  taken  until  the  probe  reached  the  opposite  cell  wall. 
The  the  probe  direction  reversed  once  again  and  was  incrementally  brought 
back  to  the  center  of  the  cell  while  taking  data.  The  scatter  in  the  data  of 
Figs.  42,  43,  and  44  may  be  due  to  evaporation  or  changes  in  the  ambient 
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temperature  which  affects  the  cell's  resonance  characteristics.  Only  data 
sets  in  which  the  ambient  temperature  varied  less  than  0.2°C  were  declared 
valid. 

To  ensure  the  uniformity  of  the  pressure  profile  in  the  cell  various  readings 
of  the  pressure  at  many  locations  in  the  cell  were  made.  Once  the  data  was 
obtained,  it  was  entered  into  a  computer.  A  program  (SLICE)  was  written  to 
view  the  data  in  2  dimensional  slices  (see  Appendix  D).  The  output  of 
SLICE  consisted  of  an  axial  plane  slice  in  any  direction.  The  pressures 
were  color  coded  and  output  on  a  color  printer.  The  pictures  shown  in  Figs. 
45  and  46  were  reproduced  using  a  gray  scale  instead  of  color. 


Figure  45:  Results  from  the  SLICE  program. 


Figure  46:  Results  from  the  SLICE  program. 


The  results  confirm  the  supposition  that  at  22.22  kHz,  the  cell  is  operating 
in  a  pressure  mode  (r,0,z)  of  (1,0,3),  which  is  basically  53  mm  (1/2 
wavelength)  in  the  z  direction  with  an  antinode  near  the  center  of  the  cell 
and  nodes  near  the  top  and  bottom. 

To  assess  the  effect  of  the  hydrophone  on  the  pressure  field  seen  by  the 
bubble,  the  following  procedure  was  used:  First,  a  bubble  was  created  in  the 
cell  and  levitated  at  a  pressure  slightly  above  its  minimum  trapping 
pressure.  This  is  the  minimum  pressure  necessary  to  keep  the  bubble  from 
rising  to  the  surface.  Then  the  hydrophone  was  placed  in  the  cell  and 
moved  toward  the  bubble  along  the  z  axis  directly  above  the  bubble  while  the 
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position  of  the  bubble  was  viewed  through  a  microscope.  It  was  found  that 
the  bubble  did  not  move  perceptibly  until  the  probe  was  within  3-5  bubble 
diameters  of  the  bubble.  Next,  the  bubble  was  levitated  at  a  pressure 
comparable  to  the  experimental  pressures  used  in  detecting  shape 
oscillations  (approx.  0.2  bar).  The  probe  was  again  inserted  into  the  water 
and  moved  toward  the  bubble.  This  time  the  probe  was  able  to  come  as  close 
as  one  bubble  diameter  before  perceptible  bubble  movement  was  observed. 
This  procedure  was  repeated  with  various  size  bubbles  ranging  from  20  to 
70  microns  in  radius.  (It  was  noticed  that  the  larger  bubbles  were  more 
affected  by  the  probe  than  the  smaller  bubbles.  )  It  was  thus  assumed  that 
the  hydrophone  probe  did  not  appreciably  affect  the  pressure  field. 

The  next  task  was  to  calibrate  the  needle  hydrophone  probe.  This  was 
accomplished  by  using  a  Bruel  &  Kjaer  (B&K)  8103  calibrated  hydrophone 
attached  to  a  B&K  type  2635  charge  amplifier.  The  B&K  probe’s  diameter  of 
9.5  mm  was  too  large  to  use  directly  in  the  cell  without  greatly  affecting  the 
sound  field.  To  calibrate  the  needle  probe  against  the  B&K  probe  a  large 
tank  filled  with  water  was  used  as  shown  in  Fig.  47. 
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A  transducer  similar  to  that  used  on  the  cell  was  attached  to  the  bottom  of 
the  tank  and  was  made  to  oscillate  at  22.22  kHz.  Using  this  apparatus, 
pressures  similar  to  those  observed  in  the  cell  were  created  in  the  tank. 
The  voltages  produced  by  the  needle  probe  were  used  as  a  measure  of  the 
similarity.  First  the  needle  probe,  and  then  B&K  probe  were  immersed  into 
the  tank  at  the  same  location,  and  the  pressure  was  varied  over  the  range 
indicated  by  the  cell  measurements.  Figure  48  shows  the  voltage  produced 
by  the  needle  probe  and  the  B&K  probe  as  a  function  of  voltage  applied  to  the 
transducer. 
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Figure  48:  Needle  and  B&K  probe  voltage  vs.  generator  voltage. 


Using  the  known  calibration  constant  for  the  B&K  probe,  the  B&K  output 
voltages  were  converted  to  pressures.  The  needle  probe  voltages  were  then 
compared  to  the  B&K  pressure  values  and  the  ratio  was  taken  to  obtain  the 
calibration  constant  for  the  needle  probe.  Once  the  needle  probe  was 
calibrated,  the  pressure  in  the  cell  could  be  related  to  the  voltage  applied  to 
the  cell  as  shown  in  Fig.  49.  Thus,  we  now  had  a  way  to  determine  the 
pressure  inside  the  cell  based  on  an  external  measurement. 
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Figure  49:  Pressure  in  the  cell  vs.  applied  generator  voltage. 


Laser  radiation  pressure  effects 

One  of  the  questions  that  arose  when  dealing  with  a  powerful  laser  to 
scatter  light  off  a  pulsating  bubble  is:  how  much  effect  does  the  laser  beam 
have  on  the  bubble9  Qualitatively,  the  incident  radiation  from  the  laser  will 
move  the  bubble  away  from  its  acoustic  equilibrium  position  in  the  direction 
of  the  beam.  If  the  bubble  had  a  constant  radius,  then  it  would  move  a 
distance,  x,  in  the  direction  of  the  beam  until  the  it  reached  a  new 
equilibrium  position,  provided  that  the  beam  was  not  powerful  enough  to 
completely  move  the  bubble  out  of  the  antinode  region.  If  the  bubble  was 
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pulsating  radially,  then  the  pressure  exerted  on  the  bubble  by  the  beam 
would  also  vary  and  the  bubble  would  oscillate  along  the  beam  path.  To  see 
if  these  effects  were  significant  in  this  experiment,  the  problem  was 
examined  quantitatively. 


The  radiation  pressure  can  be  defined  as 

p-Il-.M 

na2  "  v  ’ 


(9.1) 


where  v~c/n  is  the  velocity  of  the  light  in  the  medium,  Q  *  0.3  (Unger  and 
Marston,  1988),  P  is  the  radiation  pressure,  Fr  is  the  radiation  force,  a  is  the 
bubble  radius,  and  I  is  the  irradiance.  If  we  let 

P’  =  l7rp2  ,  (9.2) 

where  P’  is  power  and  p  is  the  beam  radius  then 

P' 

1=^-7  .  (9.3) 

np* 

Inserting  Eq.  (9.3)  into  Eq.  (9.1)  we  have 

CL3F 
xp2v 


(9.4) 
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Given  that  p  =  6.25  x  10-8m2,  and  v  =  2.25  x  108m/s,  then  the  pressure  is 

P  =  (6.79  x  10-3  s/m3)  p- .  (9.5) 

In  this  experiment  the  maximum  amount  of  power  the  laser  produced  was 
about  0.5  watts.  Assuming  that  all  of  the  power  from  the  laser  impinged  on 
the  bubble  (in  practice  less  than  0.3  watts  were  actually  incident  on  the 
bubble),  the  maximum  pressure  would  be 

P  =  3.4  x  10-3  N/m2  ,  (9.6) 


which  gives  a  force  of 

Fr  =  0.0107  a2  .  (9.7) 

As  an  example,  the  force  on  a  bubble  of  50  microns  would  be 


Fr  =  2.67  x  10-H  n  .  (9.8) 

To  compare  this  value  to  the  force  exerted  on  the  bubble  due  to  the  levitation 
pressure,  we  may  assume  that  the  acoustic  force  is  equal  to  the  buoyancy 
force.  The  buoyancy  force  can  be  written  as 
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Fb  =  frca3gpw  ,  (9-9) 

where  g  =  9.8  m/s2  is  the  acceleration  due  to  gravity,  and  pw  =  1000  kg/m3  is 
the  density  of  water.  From  this  relation  one  finds  that  Fb  *  5.13  x  10*9  N 
which  is  about  200  times  greater  than  the  pressure  due  to  the  laser 
radiation. 

Next,  if  we  allow  the  bubble  to  radially  pulsate  by  say  20%  of  its  radius  at  a 
frequency  of  20  kHz,  then  a  50  micron  bubble  will  grow  to  60  microns  and 
shrink  to  40  microns.  At  40  microns,  the  radiation  force  is 

F/40)  =  1.71  x  10'11  N  ,  (9.10) 

and  at  60  microns 

Fr(60)  =  3.845  x  10’11  N  .  (9.11) 

The  change  in  force  is  given  by 

AF  =  2.136  x  10-nN  .  (9.12) 

To  determine  how  far  the  bubble  will  move  we  let 
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Av 

F  =  ma  =*  m —  , 
At 

At  AFAt 
Av  =  AF— = — r - 

m  4  o 

pwgKa^ 


or 


Ax  =  AvAt  = 


3AFAt2 

47ca3pw 


Letting  At  =  1/20  kHz  =  5.0  x  10'5  sec  then 


Ax  =  1.02  x  10-10  m  _  0.0001  microns. 


(9.13) 

(9.14) 


(9.15) 


(9.16) 


Thus,  the  effects  of  bubble  movement  due  to  the  laser  radiation  are 
negligible  in  this  experiment. 


Shape  thresholds 


Introduction 

Once  all  the  calibrations  and  other  experimental  preliminaries  had  been 
performed,  it  was  possible  to  examine  the  question  of  when  radial 
instabilities  (i.e.,  shape  oscillations)  occurred.  It  has  been  shown  earlier 
that  shape  oscillations  exhibit  a  threshold  behavior.  The  next  step  was  to 
perform  experimental  verification  of  the  thresholds  predicted  by  the 
analytical  and  numerical  calculations.  The  experimental  arrangement  is 
shown  in  Fig.  28. 

A  levitation  cell,  timed  to  22.22  kHz,  was  used  to  trap  a  single  pulsating  air 
bubble  in  a  cylinder  filled  with  water.  The  bubble  was  illuminated  by  an 
argon-ion  laser  beam  operating  at  440  mW  @  488  nm.  The  scattered  light 
from  the  bubble  was  detected  by  three  silicon  photodiodes,  converted  to 
voltages,  digitized,  and  stored  on  a  computer. 

There  were  two  basic  experimental  methods  to  determine  when  the  bubbles 
reached  the  shape  oscillation  point:  First,  a  small  bubble  was  created  in  the 
cell  and  the  pressure  was  kept  constant  at  a  value  slightly  above  the 
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rectified  diffusion  level  (Appendix  A).  The  bubble  would  then  grow  until  it 
reached  a  critical  radius,  defined  by  the  pressure,  where  it  became  radially 
unstable.  The  pressure  and  radius  were  recorded  and  the  procedure  was 
repeated.  The  second  method  (later  referred  to  as  "fast  thresholds") 
employed  a  technique  in  which  once  a  spherically  symmetric  bubble  was 
obtained,  the  pressure  in  the  cell  would  be  rapidly  increased  (keeping  the 
bubble  in  the  laser  beam)  until  the  bubble  became  radially  unstable.  Again, 
the  pressure  and  radius  were  recorded.  Both  methods  had  strengths  and 
weaknesses  which  are  detailed  later.  Approximately  75  thresholds  were 
obtained  using  the  first  method  and  over  200  thresholds  were  obtained 
using  the  second  method.  What  follows  is  a  detailed  description  of  the 
apparatus,  methods  and  results. 


Apparatus 

The  apparatus  used  in  determining  the  shape  oscillation  thresholds  has 
been  detailed  earlier.  In  both  methods  of  determining  the  shape  oscillation 
threshold  three  silicon  photodiodes  were  placed  around  the  cell.  The  "DC" 
or  bubble  sizing  photodiode  was  placed  at  80.5°  from  the  forward  scattering 
angle.  The  two  "AC"  photodiode  detectors  were  placed  at  +31.5°  and  -31.5° 
from  the  forward  scattering  angle.  The  AC  detectors  were  placed  at 
symmetric  angles  about  the  forward  so  that  when  the  bubble  was 
spherically  pulsating,  the  output  from  the  detectors  would  be  identical.  If 
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the  detectors  showed  any  significant  difference,  either  in  phase  or  in 
amplitude,  a  shape  oscillation  was  assumed. 

The  first  step  in  the  experimental  methods  was  to  create  a  bubble  inside  the 
levitation  cell.  The  phenomenon  of  acoustic  cavitation  was  used  for  bubble 
creation  (Atchley,  1985).  A  bubble  was  created  in  the  cell  by  increasing  the 
standing  wave  pressure  until  cavitation  was  evident.  Once  this  occurred, 
the  pressure  was  quickly  decreased  by  about  20%  until  a  formation  of 
streamers  was  visible.  The  streamers  consisted  of  about  five  or  six  "lines" 
of  micro-bubbles  which  formed,  moved  toward  the  center  of  the  cell, 
coalesced,  and  then  disintegrated.  The  streamers  were  from  one  to  two 
centimeters  in  length  and  were  fairly  straight.  This  process  happened  in  a 
repetitive  cycle.  The  process  from  creation  to  destruction  of  the  micro¬ 
bubbles  happened  over  a  period  of  about  one  second  with  a  repetition  rate  of 
about  three  seconds.  Visually,  there  was  a  uniform,  wide-spread  micro¬ 
bubble  field  (about  4  cm2)  which,  at  first,  slowly  condensed.  Then  the 
condensation  rate  increased  until  enough  bubbles  coalesced  at  the  vertex  to 
form  a  central  bubble  and  the  remaining  micro  bubbles  formed  five  or  six 
lines  of  bubbles  leading  in  toward  the  center  bubble.  This  central  bubble 
underwent  rapid  growth  while  gyrating  wildly.  The  bubble  mass  then 
reached  a  point  when  it  would  collapse  and  form  a  field  of  micro  bubbles 
which  began  the  process  again.  It  was  possible  to  carefully  lower  the  sound 
pressure  field  in  the  cell  during  the  rapid  growth  stage  to  obtain  a  stably 
oscillating  bubble.  This  took  some  practice  and  was  perfected  over  time. 
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The  bubbles  formed  this  way  were  normally  around  20  to  30  microns  in 
radius.  The  pressure  required  to  keep  these  small  bubbles  from  dissolving 
was  on  the  order  of  0.5  bar. 

First  experimental  method 

There  were  two  experimental  methods  used  in  determining  when  the 
bubble  exhibited  radial  instability. 

1)  Constant  pressure,  variable  bubble  size 

2)  Constant  bubble  size,  variable  pressure 

The  first  method  is  described  as  follows:  First,  the  levitation  cell  was  tuned 
to  22.22  kHz  and  was  allowed  to  reach  thermal  equilibrium.  Next,  the 
photodiodes  were  activated  and  the  laser  beam  illuminated  the  levitation 
cell.  Next,  a  background  measurement  of  the  photodiode  outputs  was 
taken.  This  background  essentially  defined  the  smallest  resolvable  bubble 
detectable  by  the  photodiodes.  The  measured  background  corresponded  to  a 
bubble  whose  radius  was  about  20  microns.  Bubbles  with  radii  smaller 
than  20  microns  could  not  be  resolved  out  of  the  background  noise.  Next,  a 
stably  pulsating  bubble  was  formed,  as  described  above.  The  acoustic 
pressures  in  the  cell  were  about  0.4  bar  immediately  following  the  bubble's 
creation.  At  these  pressures  the  bubble  would  grow  fairly  rapidly,  about  5 
microns  per  minute,  since  this  pressure  exceeded  the  rectified  diffusion 
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threshold.  Next,  the  bubble  was  allowed  to  grow  while  maintaining  a 
constant  pressure  in  the  cell.  As  the  bubble  grew,  it  would  rise  in  the  cell. 
Thus,  since  the  laser  beam  was  kept  at  a  constant  height,  the  bubble  was 
constantly  repositioned  in  the  laser  beam,  by  moving  the  cell  vertically,  so 
that  the  entire  bubble  was  illuminated  by  the  beam.  To  determine  when  the 
bubble  was  completely  in  the  beam,  the  output  from  the  "DC"  detector  was 
maximized  by  altering  the  vertical  and  horizontal  position  of  the  cell.  Once 
a  bubble  had  been  positioned  horizontally,  the  horizontal  position  was  fixed. 
(The  x-y  position  of  the  bubble  should  not  change  due  to  changes  in  the 
pressure  or  changes  in  the  bubble  size.) 

Periodically,  about  once  every  20  seconds,  during  the  bubble  growth  the 
following  information  was  recorded:  the  time,  the  ambient  temperature, 
the  water  temperature  and  the  DC  scattered  voltage  (voltage  output  by  the 
"DC"  photodiode).  The  driving  frequency  and  voltage  applied  to  the  cell 
were  kept  constant.  The  AC  detectors  were  monitored  visually  on  an 
analog  oscilloscope.  A  computer  digitized  the  AC  and  DC  signals,  recorded 
the  time  and  the  DC  value,  subtracted  the  AC  signals,  computed  a  "shape 
threshold"  criterion  value  and  waited  for  a  shape  oscillation. 

As  the  bubble  grew,  the  rms  output  signals  from  the  photodiodes  increased 
so  that  the  computer  had  to  adapt  itself  to  dynamic  conditions  and  thus 
continually  redefined  the  shape  oscillation  threshold  criterion.  This 
criterion  was  normally  defined  to  be  >20%  deviation  from  background  of  the 
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difference  of  the  two  AC  signals.  Since  this  criterion  did  not  always  work, 
an  override  feature  was  built  in  that  allowed  the  operator  to  force  an 
initiation  of  the  recording  process. 

The  recording  process,  initiated  by  either  the  computer  or  operator, 
consisted  of  triggering  all  four  channels  on  an  HP  5183U  waveform 
recorder/digitizing  oscilloscope,  recording  the  frequency  and  amplitude  of 
the  driving  voltage  applied  to  the  cell,  the  time  at  which  the  event  occurred, 
and,  if  computer  initiated,  whether  the  operator  considered  the  event  to  be  a 
true  shape  oscillation  or  simply  a  random  fluctuation.  Since  the 
computer's  reaction  rate  was  much  faster  than  the  human  rate,  the  data 
acquired  by  computer  trigger  showed  more  precisely  the  actual  transition 
from  spherical  to  non-spherical  pulsation  of  the  bubble. 

In  most  cases,  the  threshold,  once  reached  by  this  method,  usually  resulted 
in  a  stable  shape  oscillation  lasting  from  a  few  seconds  to  many  minutes. 
The  bubble  either  remained  stable  or  disintegrated.  If  it  remained  stable, 
the  pressure  was  lowered  until  the  pulsation  became  spherical  and  the 
process  was  repeated.  At  this  point  the  bubble  either  grew  slowly  or 
dissolved  depending  upon  the  driving  pressure. 

This  method  was  applied  to  either  growing  or  dissolving  bubbles.  No 
distinction  was  made  in  the  threshold  measurements.  If  the  bubble  could 
not  be  made  stable  or  it  disintegrated,  then  a  new  bubble  was  formed  and 
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the  procedure  was  repeated  from  the  beginning.  This  method  had  an 
advantage  over  the  second  method  (described  later)  in  that  rectified- 
di (fusion  rate  measurements  could  be  made  simultaneously  since  the  time 
and  bubble  size  were  recorded  during  the  growth  stage  of  the  bubble. 
Appendix  A  outlines  these  observations. 

Transfer  of  the  data  from  the  HP  to  the  computer  for  storage  was  not 
speedy.  This,  coupled  with  the  fact  that  the  bubbles  were  either  growing  or 
dissolving  very  slowly,  meant  that,  at  most,  ten  data  sets  could  be  taken  per 
day.  Examples  of  these  data  sets  are  shown  in  Figs.  50-55. 

Figures  50-55  are  described  as  follows.  Each  figure  contains  eight  graphs. 
The  title  of  each  figure  contains  the  date  the  data  was  taken  and  the  data  set 
number  (described  later).  The  four  graphs  on  the  left  side  of  the  page 
represent  the  actual  data  as  a  function  of  time.  In  the  right  is  the 
corresponding  amplitude  spectrum  in  frequency  space.  The  frequency  has 
been  normalized  to  the  driving  frequency  of  22.22  kHz.  The  top  graph  on  the 
left  is  simply  the  driving  signal  applied  to  the  levitation  cell.  Note,  that  all 
"y"  axis  units  have  been  normalized  to  the  amplitude  of  the  driving 
frequency.  The  next  three  graphs  show  the  output  from  the  three 
photodiode  detectors,  DC,  AC#1,  and  AC#2,  respectively. 

Figure  50  is  a  sample  background  data  set.  This  set  the  limits  on  the  bubble 
size  resolution.Figure  51  is  a  example  of  a  bubble  in  shape  oscillation  in 
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which  the  amplitude  of  the  oscillation  seen  by  the  two  AC  detectors  is 
different.  Here  the  spectrums  are  similar  and  have  harmonics  of  the 
fundamental  and  first  sub-harmonic.  Figure  52  is  an  example  of  a  bubble 
undergoing  a  complex  shape  oscillation.  Both  the  phase  and  amplitudes 
seen  by  the  detectors  are  different.  Also,  a  broad  frequency  spectrum  with 
many  harmonics  and  sub-harmonics  are  evident.  Figure  53  represents  one 
of  the  more  typical  shape  oscillations.  The  phase  difference  between  the 
detectors  has  not  changed,  while  the  amplitude  of  one  detector  is  much 
larger  then  the  other  detector.  There  is  also  an  absence  of  any  sub- 
harmonics.  Figure  54  represents  a  stable  shape  oscillation.  This 
particular  bubble  exhibited  the  same  shape  oscillation  both  in  phase  and 
amplitude  for  a  period  of  about  5  minutes.  Figure  55  represents  another 
stable  shape  oscillation,  although  in  this  case  the  phase  between  the 
detectors  slowly  changed  over  time,  indicating  a  precession.  For  most  of 
the  stable  shape  oscillations  generated,  a  precession  behavior  was  normally 
observed.  It  is  interesting  to  note  that  the  rate  of  the  precession  could  be 
controlled  by  the  operator  by  simply  raising  or  lowering  the  applied 
pressure  by  a  very  slight  amount. 
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Figure  52:  Experimental  data  set  #3 
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Figure  54:  Experimental  data  set  #5 
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Figure  55:  Experimental  data  set  #6 
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For  each  data  run  (usually  one  per  day)  approximately  ten  data  sets  were 
taken.  The  first  data  set  was  taken  to  determine  the  background  readings 
for  the  photodiodes.  The  variability  during  all  the  data  runs  was  slight. 
The  second  data  set  was  taken  to  determine  if  the  photodiode  detectors  and 
all  associated  electronics  were  operating  properly.  To  compare  the  data 
runs  on  a  day-to-day  basis,  a  linear  spherically  pulsating  bubble  was  placed 
in  the  laser  beam  and  a  data  set  was  taken.  Acquiring  this  data  set  had  the 
added  benefit  of  automatically  calibrating  any  amplitude  or  phase 
differences  between  the  two  AC  photodiodes.  It  was  found  that  the 
variability  in  phase  between  the  detectors  was  insignificant.  The  amplitude 
differences  were  detectable  over  time  but  were  easily  compensated  for.  The 
rest  of  the  data  sets  during  a  data  run  were  taken  when  a  shape  oscillation 
threshold  had  been  reached.  The  table  below  shows  an  example  of  the 
relationship  between  data  runs,  data  sets,  and  data  descriptions. 


|  Data  Run 

DataSet 

Description 

I  AUDI  8 

Background  calibration 

I  AUG18 

Linear  calibration 

AUG18 

Shape  oscillation  set  #1 

AUG18 

#4 

Shape  oscillation  set  #2 

AUG  18 

#n 

Shape  oscillation  set  # n 

AUG20 

#1 

Background  calibration 

AUG20 

#2 

Linear  calibration 

1  etc. 

etc. 

etc. 
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Normally  only  four  or  five  sets  were  kept  per  day,  as  some  had  to  be 
discarded  for  the  following  reasons:  large  temperature  fluctuations 
(>±1°C),  bubble  contamination,  or  missed  thresholds  due  to  too  rapid 
threshold  approaches  that  the  computer  did  not  catch.  This  first  method 
was  used  throughout  the  experiment.  To  increase  the  number  of  threshold 
measurements  taken  per  day  an  alternate  method  was  needed. 


Second  experimental  method 

The  second  method  employed,  the  so-called  "fast-transition  method", 
involved  essentially  the  same  apparatus  as  the  first  method.  Here  the 
bubble  radius  was  kept  constant,  while  the  pressure  was  rapidly  increased 
to  initiate  a  shape  oscillation.  A  bubble  was  created  in  the  manner 
described  above  and  was  made  to  pulsate  spherically.  Next,  the  bubble  was 
positioned  completely  in  the  laser  beam.  The  DC  scattered  voltage  (i.e.,  the 
bubble  size),  the  ambient  temperature,  the  water  temperature,  the  driving 
frequency,  and  the  applied  voltage  (i.e.,  the  pressure  amplitude)  were 
recorded.  Then,  while  adjusting  the  cell  to  keep  the  bubble  in  the  laser 
beam,  the  pressure  was  increased  as  rapidly  as  needed  until  the  bubble 
exhibited  non-radial  motion  as  evidenced  by  the  AC  detectors.  To  determine 
when  the  bubble  went  into  shape  oscillation,  the  outputs  of  the  AC  detectors 
were  input  into  an  analog  oscilloscope  which  had  the  ability  to  invert  the 
signal  in  channel  B  and  add  channels  A  and  B  (Tektronix  2235  100  MHz). 
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The  resulting  trace  only  showed  a  difference  from  zero  when  the  bubble 
exhibited  non-spherical  motion. 

The  difficulty  involved  in  this  method  was  keeping  the  bubble  positioned 
correctly  in  the  laser  beam  during  the  pressure  increase.  Since  any  change 
in  the  pressure  would  move  the  bubble  downward,  the  cell  had  to  be  raised 
to  compensate.  These  tasks  were  very  difficult  to  perform  rapidly  enough. 
Thus,  a  computer  program  was  written  to  perform  most  of  the  data 
acquisition  tasks.  The  program  SHAPE  (Appendix  D)  controlled  the 
function  generator  which  set  the  driving  frequency  and  voltage  applied  to 
the  levitation  cell.  It  also  recorded  the  time,  frequency,  voltage,  ambient 
temperature,  water  temperature  and  DC  scattered  voltage.  SHAPE  was  set 
to  perform  the  following  tasks  each  time  the  spacebar  on  the  terminal 
keyboard  was  pressed: 

•  Record  the  time 

•  Record  the  driving  frequency 

•  Record  the  driving  voltage  amplitude 

•  Record  the  ambient  temperature 

•  Record  the  water  temperature 

•  Record  the  DC  scattered  voltage 

•  Increment  the  applied  voltage  by  a  given  amount. 

The  operator  would  then  reposition  the  bubble  in  the  beam  and  the  process 
would  repeat.  When  the  bubble  went  into  shape  oscillations,  another  key 


143 


was  pressed  (<retum>),  the  above  items  were  recorded,  and  control  of  the 
function  generator  was  returned  to  the  operator  who  immediately  lowered 
the  pressure  in  the  cell  until  the  bubble  returned  to  a  spherical  pulsation. 
The  process  was  then  repeated.  Since  no  actual  waveforms  were  recorded 
using  this  method,  and  since  there  was  a  very  short  time  interval  between 
the  start  and  end  of  each  threshold  measurement,  it  was  possible  to  take 
many  threshold  measurements  each  hour.  As  before,  measurements  were 
discarded  if  the  temperatures  changed  more  than  ±1°C,  if  the  bubble 
became  contaminated  or  if  a  false  threshold  was  obtained.  The  majority  of 
the  threshold  data  was  taken  using  this  method. 


Experimental  observations 
Type  1-5  behaviors 

Before  we  present  the  threshold  results,  some  experimental  observations 
will  be  discussed.  In  observing  the  traces  on  the  analog  oscilloscopes  of  the 
output  of  the  AC  photodiode  detectors,  some  interesting  phenomena  was 
made  apparent.  There  seemed  to  be  five  different  ways  a  bubble  could  make 
the  transition  into  a  surface  oscillation.  As  noted  before,  the  analog  trace 
representing  the  difference  between  the  two  AC  detectors  was  essentially 
zero  when  the  bubble  was  spherically  pulsating.  The  first  type  (type  1)  of 
behavior  associated  with  non-radial  motion  was  apparent  when  the  analog 
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trace  deviated  from  zero  into  a  small  amplitude  sine  wave  as  shown  in  Fig. 
56. 


Figure  56:  Type  1  trace. 

The  frequency  of  this  wave  was  always  the  same  as  the  driving  frequency 
and  the  amplitude  was  an  order  of  magnitude  smaller  than  the  other  types 
of  traces.  Bubbles  which  exhibited  this  type  of  behavior  were  on  the  order  of 
60  microns  in  radius. 


The  second  type  (type  2)  of  behavior  was  observed  for  the  majority  of  the 
bubbles.  This  behavior  is  illustrated  in  Fig.  57. 
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Figure  57 :  Type  2  trace. 

This  type  was  characterized  by  a  large  amplitude  (at  least  an  order  of 
magnitude  larger  than  type  1)  and  a  sharp  demarcation,  in  applied 
pressure,  between  radial  stability  and  instability.  The  phase  difference 
usually  began  as  a  constant  and  then  became  more  and  more 
unpredictable.  Bubbles  of  this  type  could  normally  be  brought  back  to 
spherically  stable  radial  motion  by  simply  lowering  the  pressure. 

The  third  type  (type  3)  of  behavior  was  rarely  observed.  Figure  58  is  an 
example  of  type  3  behavior. 
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Time  (periods) 

Figure  58:  Type  3  trace. 

The  analog  trace  exhibited  a  constant  phase  and  medium  amplitude 
appearance  and  would  normally  be  long  lived  (on  the  order  of  minutes).  It 
was  difficult  to  class  this  as  a  shape  oscillation  as  changes  in  pressure  did 
not  seem  to  affect  the  trace  to  any  great  degree.  Normally,  bubbles  of  this 
type  would  transfer  into  a  type  2  bubble  by  increasing  the  pressure  a 
sufficient  amount. 

The  fourth  type  (type  4)  of  behavior  was  the  most  interesting.  An  example  is 
shown  below  in  Fig.  59. 
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Time  (periods) 
Figure  59:  Type  4  trace. 


The  analog  trace  would  exhibit  a  "flickering”  effect.  The  trace  would  be 
zero,  indicating  a  spherically  pulsating  bubble  and  then,  with  no  pressure 
change,  it  would  spontaneously  jump  into  a  large  amplitude,  seemingly 
random  phase  shape  oscillation  lasting  from  0.5  to  2  seconds  before 
spontaneously  jumping  back  to  a  zero  trace.  This  was  quite  repeatable  in 
that  once  a  bubble  exhibited  this  behavior,  it  would  continue  to  do  so  for 
many  minutes.  There  did  not  seem,  however,  to  be  any  predictability  for 
which  bubble  size  it  would  occur.  Bubbles  of  all  sizes  would  exhibit  this 
behavior  at  some  time. 
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The  fifth  type  (type  5)  of  behavior  was  the  second  most  probable.  Figure  60  is 
a  representative  example. 


Type  5  bubbles  exhibited  a  large-amplitude,  constant-phase,  long-lived, 
stable  shape  oscillation  which  could  last  for  up  to  five  minutes.  One  reason 
for  the  longevity  of  this  shape  oscillation  could  be  the  fact  that  the  rectified 
diffusion  threshold  was  very  near  and  possibly  slightly  higher  than  the 
shape  oscillation  threshold.  Bubbles  around  50  microns  tended  to  exhibit 
this  type  of  behavior  more  often  than  other  bubble  sizes.  These  types  of 
traces  basically  described  all  of  the  observed  shape  oscillations.  Most  were 
repeatable  with  types  2  and  5  being  the  most  prevalent. 
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Pressure  Hysteresis 

Another  experimental  observation  was  the  evidence  of  a  pressure 
hysteresis.  Beginning  with  a  spherically  pulsating  bubble,  the  pressure 
was  increased  until  a  shape  oscillation  occurred.  To  recover  the  spherical 
pulsation,  the  pressure  had  to  be  lowered  well  below  the  pressure  required 
for  the  onset  of  the  shape  oscillation.  During  this  time  the  bubble's 
equilibrium  radius  did  not  change  significantly  and  thus  could  not  be  an 
explanation  for  this  fact.  A  possible  explanation  is  that  there  was  not  a 
sufficient  number  of  perturbation  mechanisms  present  to  cause  shape 
oscillations  until  the  pressure  gradient  itself  excited  the  non-radial  motion. 
Normally,  random  fluctuations  in  the  cell  environment  were  sufficient 
perturbations. 

Experimentally  this  hysteresis  effect  was  tested  by  forcibly  perturbing  the 
bubble  by  momentarily  turning  off  the  sound  field.  Use  of  this  technique  did 
narrow  the  hysteresis  but  did  not  completely  remove  it.  The  average 
hysteresis  width  was  about  0.05  bar.  Studying  this  hysteretic  effect  led 
directly  into  the  next  observed  effect,  what  we  will  call  the  "super-stability" 
of  a  bubble. 


Super-stability 
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When  the  system  was  nearly  free  of  perturbation  sources,  such  as  thermal 
currents,  dirt  particles,  micro-bubbles,  etc.,  then  it  was  possible  to  increase 
the  pressure  exerted  on  a  spherically  pulsating  bubble  beyond  its  radial 
instability  threshold.  This  fact  was  not  discovered  until  late  in  the  progress 
of  this  study.  Earlier  it  was  assumed  that  there  would  always  be  sufficient 
perturbation  sources  in  the  levitation  cell  to  excite  a  surface  oscillation 
when  the  threshold  had  been  reached.  To  make  sure  that  this  was  indeed  a 
result  of  lacking  perturbations,  when  such  a  bubble  was  observed,  the  data 
was  retaken  by  forcibly  perturbing  the  bubble  before  and  near  the  expected 
threshold.  In  each  case  the  bubbles  which  exhibited  this  super-stable  effect 
would  revert  to  normal  thresholds.  These  effects  were  normally  easy  to 
observe,  but  there  were  cases  where  the  relative  stability  of  the  bubble  (or 
more  precisely,  the  width  of  the  radial  instability  transition  region)  seemed 
to  be  larger  than  usual. 


Instability  width 

This  transition  region,  can  be  thought  of  as  a  "broadening"  of  the  stability 
transition  region.  Observation  showed  that,  for  a  given  bubble  radius,  the 
point  below  which  the  applied  pressure  would  not  be  sufficient  to  induce  a 
shape  oscillation,  even  in  the  presence  of  perturbations,  that  would  last 
more  than  two  or  three  driving  cycles,  and  the  pressure  point  at  which  the 
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bubble  would  become  radially  unstable,  could  vary  in  width  (AP).  Thus,  for 
some  bubble  radii,  AP  could  be  on  the  order  of  0.1  bar  where  for  other  bubble 
radii,  AP  could  be  less  than  0.01  bar.  Future  experimental  studies  might 
show  that  there  is  a  correlation  between  this  AP  effect  and  radial 
resonances. 


Beaconing  effect 

One  of  the  most  interesting  observed  phenomenon  of  the  surface  oscillations 
was  a  "beaconing"  effect.  When  a  bubble  exhibited  a  stable  or  long  lived  (>  2 
minutes)  shape  oscillation  the  bubble  had  a  tendency  to  slowly  precess.  The 
precession  rate  was  on  the  order  of  a  few  hertz  and  could  be  altered  by 
slightly  changing  the  pressure  in  the  cell.  Visually,  this  precession  looked 
like  a  light  house  beacon.  It  was  a  very  obvious  effect  and  when  the  beacon 
crossed  a  photodiode,  the  output  voltage  increased  by  at  least  an  order  of 
magnitude.  This  beaconing  effect  was  not  visible  in  the  data  records 
obtained,  since  the  radial  pulsations  were  on  the  order  of  20  kHz  and  the 
records  were  taken  for  only  approximately  100  cycles.  The  beaconing  effect 
on  this  time  scale  was  not  significant  and  could  not  be  observed  in  the  data. 
Also,  the  beacon  effect  normally  did  not  occur  until  a  few  seconds  after  the 
threshold  effect. 
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Results 

The  results  of  both  methods  for  determining  the  shape  oscillation 
thresholds  are  shown  in  Fig.  61. 


Figure  61:  Experimental  thresholds  for  radial  instabilities.  Representitive  error  bars  are 
shown.  (Pressure  -1%  error,  Radius  -  3%  error) 


The  figure  represents  an  applied  acoustic  pressure  vs.  bubble  radius  plot 
which  shows  the  point  at  which  the  bubble  exhibited  non-spherical 
pulsations.  The  numbers  near  the  threshold  curve  represent  the  frequency 
of  the  shape  oscillation. 
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Figure  62:  Experimental  thresholds  vs.  analytic  prediction. 

Figure  62  shows  the  comparison  between  the  experimentally  obtained 
thresholds  and  the  analytic  solution  to  the  theoretical  prediction.  Note  that 
for  bubbles  larger  than  about  40  microns,  the  order  of  magnitude  of  the  fit  is 
fairly  good.  (It  is  interesting  that  the  shape  of  the  curve  is  similar  but 
seems  to  be  shifted  in  radius.)  It  can  also  be  seen  that  the  predicted 
frequencies  for  the  shape  oscillation  match  well  with  the  experimental 
data.  For  the  smaller  bubbles,  the  analytic-solution  fit  is  poor  and  could  be 
attributed  to  the  ignoring  of  surface  tension  terms  in  the  analytic  solution, 
as  discussed  in  Chapter  IV. 
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Figure  63  shows  a  comparison  between  the  experimentally-obtained 
thresholds  and  a  numerical  solution  to  the  theoretical  prediction.  Here 
again  the  order  of  magnitude  of  the  fit  is  quite  good.  Also,  the  general 
trends  are  similar  but  are  shifted  in  radius. 

Thus,  we  are  confident  that  the  theoretical  prediction  is  at  least 
qualitatively  correct  in  determining  where  the  thresholds  for  surface 
oscillations  occur.  Differences  between  theory  and  experiment  could  be  due 
to  assumptions  made  in  the  theory  as  outlined  earlier. 


Summary 


The  aim  of  this  dissertation  was  to  analyze  the  surface-wave  threshold 
phenomenon  exhibited  by  an  acoustically  driven  air  bubble  in  water.  To 
accomplish  this  task,  a  theoretical  development  leading  to  a  simplified  set 
of  equations  describing  the  pulsating  motion  of  an  air  bubble  was  given  in 
early  part  of  the  dissertation. 

Next,  presentation  and  refinement  of  an  analytical  solution  to  the  equations 
of  motion  was  discussed  and  presented  in  graphical  form.  Then,  in  an 
attempt  to  improve  upon  the  analytical  solution,  a  direct  numerical 
integration  was  preformed  on  the  equations  of  motion.  It  was  shown  that 
the  numerical  integration,  which  contained  terms  ignored  by  the  analytical 
solution,  produced  a  different  threshold  curve  for  the  smaller  bubbles. 

Then,  experimental  results  of  the  shape  oscillation  thresholds  were  given 
and  compared  to  the  the  theoretical  predictions.  It  was  seen  that  while  the 
theoretical  results  predicted  general  trends,  there  were  regions  where  the 
peaks  and  valleys,  in  the  graphical  representations,  did  not  exactly  match. 
Possible  explanations  for  these  small  discrepancies  were  presented  and 
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discussed.  The  major  cause,  in  my  opinion,  to  the  discrepancies  between 
theory  and  experiment  is  due  to  the  modeling  of  the  pressure  inside  the 
bubble  by  a  polytropic  approximation.  More  exact  theories  have  been 
recently  developed  to  model  the  pressure  inside  the  bubble  using 
thermodynamic  considerations  and  could  be  employed  in  the  future  to 
generate  other  threshold  curves.  This  study  also  provided  experimental 
verification  of  the  theory  of  Mie  scattering,  thus  affording  a  precise  means 
of  studying  the  oscillating  behavior  of  a  small  (10-lOOp)  bubble.  Further,  by 
using  the  techniques  developed  in  this  study,  an  extension  of  this  study  to 
examine  the  actual  character  of  the  shape  oscillations,  radial  transients, 
and  chaotic  behavior  could  be  more  easily  undertaken. 

Finally,  in  conclusion,  this  study  has  shown  that  in  order  to  obtain  an 
adequate  theoretical  treatment  of  the  surface  wave  threshold  phenomenon, 
a  direct  integration  technique,  including  surface  tension  terms,  is  needed. 
It  has  also  been  shown,  in  general,  that  the  theoretical  predictions  of  the 
surface  wave  thresholds  are  in  general  agreement  with  the  experimental 
data. 


Appendix  A 


Rectified  Diffusion  Growth  Rates 


Whenever  an  experiment  is  done,  there  is  always  extra  information 
obtained  that  is  not  directly  related  to  the  original  experiment.  This 
experiment  was  no  exception.  When  using  the  "first"  method  (described  in 
the  section  on  shape  thresholds),  growth  rates  of  a  spherically  pulsating, 
driven  air  bubble  in  water  were  obtained.  The  mechanism  whereby  a 
pulsating  bubble  increases  its  size  in  a  saturated  liquid  is  known  as 
rectified  diffusion.  Rectified  diffusion  is  a  process  whereby  the  average 
volume  of  a  bubble  either  grows  by  pumping  air  from  the  liquid  into  itself  or 
decays  by  losing  air  to  the  surrounding  liquid.  Qualitatively,  this  can  be 
described  as  follows:  When  the  pressure  inside  the  bubble  is  slightly  less 
than  the  pressure  in  the  surrounding  liquid,  then  air  will  diffuse  into  the 
bubble.  When  the  converse  is  true,  air  will  diffuse  from  the  bubble  into  the 
liquid.  For  a  pulsating  bubble,  during  the  positive  pressure  driving  cycle, 
the  bubble  is  at  its  smallest  volume,  and  therefore  its  smallest  surface  area. 
During  this  phase,  the  pressure  inside  the  bubble  is  greater  than  the 
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pressure  in  the  liquid,  so  air  will  diffuse  from  the  bubble  out  into  the  liquid. 
During  the  negative  pressure  cycle,  the  bubble  is  at  its  maximum  volume, 
hence  its  largest  surface  area,  and  the  pressure  inside  the  bubble  is  less 
than  the  pressure  in  the  liquid,  so  air  will  diffuse  into  the  bubble.  Since  the 
amount  of  air  diffused  into  or  out  of  the  bubble  depends  on  the  surface  area 
of  the  bubble,  it  is  seen  that  the  bubble  will  gain  more  air  than  it  loses  over 
each  cycle  (assuming  the  diffusion  rate  to  be  constant).  The  driving 
pressure  threshold  for  this  effect  to  occur  is  known  as  the  growth  by 
rectified  diffusion  threshold.  The  rate  at  which  the  bubble  grows  is  known 
as  the  rectified  diffusion  growth  rate. 

We  were  able  to  measure  the  rectified  diffusion  growth  rate  of  a  variety  of 
bubbles.  Figures  Al,  A2,  A3,  and  A4  show  the  average  radii  of  four 
different  bubbles  growing  by  rectified  diffusion  as  a  function  of  time.  The 
asterisks  represent  the  data  and  the  two  curves  represent  two  different 
rectified  diffusion  theories  (Crum  and  Hansen,  1982,  and  Church,  1989). 
As  the  actual  theories  will  not  be  explained  here,  the  interested  reader  is 
directed  to  the  references.  The  Crum  and  Hansen  theory  is  a  linearized 
theory  while  the  theory  of  Church  includes  nonlinear  effects  such  as 
streaming.  The  figures  show  that  for  slow  growth  rates  (i.e.,  near  the 
rectified  diffusion  growth  threshold)  and  low  pressures,  both  the  linear  and 
the  more  general  theory  predict  the  experimental  results.  For  higher 
pressures  and  for  faster  growth  rates,  however,  the  linear  theory  works 
only  when  the  bubble  is  not  near  a  radial  resonance.  Church's  theory,  with 
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or  without  considering  the  streaming  phenomenon,  more  precisely  predicts 
the  experimental  results.  These  results  are  simply  presented  here.  A 
more  detailed  analysis  may  be  made  in  a  later  study. 


Figure  Al:  Rectified  diffusion  case  #1 
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Figure  A2:  Rectified  diffusion  case  #2 
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Figure  A3:  Rectified  diffusion  case  #3 
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In  this  appendix,  a  derivation  of  the  scattering  amplitudes  is  given  utilizing 
Mie  theory.  This  theory  deals  with  the  scattering  of  a  plane 
electromagnetic  wave  by  an  isotropic,  homogeneous  sphere  of  arbitrary 
size.  Briefly,  the  theory  may  be  derived  as  follows. 

Beginning  with  Maxwell's  equations  for  a  plane  wave  in  a  homogeneous, 
isotropic  medium  (water)  impinging  on  a  non-conducting  sphere  (bubble) 
with  no  currents  or  free  charges,  one  may  write  the  equations  as 


V  x  E  +  — =0 
ot 

(B.l) 

3D 

V  x  H  -  — ~=  0 

at 

(B.2) 

V  •  D  =  0 

(B.3) 

V  •  B  =  0 

(B.4) 

where  D  =  eE  and  B  =  pH. 
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Since  these  equations  can  be  written  in  terms  of  a  vector  potential,  A,  and  a 
scalar  potential,  <j>,  if  we  assume  that  A  is  proportional  to  a  time-varying 
potential  (named  the  electric  Hertz  vector,  FIi) 


A 


arii 

=‘ieir 


(B.6) 


we  find  that 


B  =  J1£Vx~ 
at 


(B.7) 


and 


E  =  -Vq  -  jie 


a2m 

dt2 


(B.8) 


Since  <{>  must  satisfy  the  wave  equation,  <f>  =  -V  •  n i-  An  alternate  solution, 
II2.  (named  the  magnetic  Hertz  vector)  to  Eq.  (B.6)  may  be  chosen  as  well,  so 
that  the  vector  quantities  can  be  written  as 


Bi  =  jisV  x 


am 

at 


Ei  -  \7(V*rii)  - 


a2rh 

at2 


D2  =  *(if  V  x 


an2 

at 


(B.9) 

(B.10) 


(B.ll) 
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H2  =  V(V  •  F^)  - 


d2Tl2 

at2 


(B.12) 


Since  D  =  EqE  +  P,  the  wave  equations  for  fli  and  Fte  can  be  written  as 


v2rii  -  ii£o' 


p 

9t2  e0 


„ort  32112  ™ 

V2H2-^ioe-^-=*M 


(B.13) 

(B.14) 


where  M  is  the  magnetization  and  P  is  the  polarization. 


The  vector  potentials  can  now  be  written  in  terms  of  scalar  potentials 
(referred  to  as  the  Hertz-Debye  potentials)  such  that 


rii  =  -V  •  rh  (B.15) 

n2  =  -V  •  ri2  •  (B.16) 


Equations  (B.15)  and  (B.16)  are  solutions  to  the  scalar  wave  equation 


v2n- 


(B.17) 


In  terms  of  these  scalar  potentials,  the  components  of  the  field  vectors  in 
sphericrJ  coordinates  are  given  by  (Kerker,  1969) 
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„  d2(rni) 

Er'  3r2 

_  Wrfli) 

Eq  =  r  r~ + 


+  k2rFIi 

K2  9(rri2) 


Ea  — 


r9r99  r  sinQ  90 

i  02(rni)  k2  a(rn2) 


r  sin0  3r9<J>  r  90 


and 


„  32(f n2 )  ,  2  _ 
Hr  =  — —  +  k2rri2 


9r2 


ki  9(rni)  l92(rn2) 

Hn  =  . - + - 

r  sin9  90  r  9r90 


ki  9(rlli) 

=- — - + 


92(rn2) 


90  r  sin0  9r90 
where  the  propagation  constant  is  given  by 


k2  =  *KlK2  =  ci)2e 


with 


<i  =  icoe 
K2  =  ico. 


(B.18) 

(B.19) 

(B.20) 

(B.21) 

(B.22) 

(B.23) 

(B.24) 

(B.25) 

(B.26) 


Solution  to  the  scalar  wave  equation 

If  we  assume  a  sinusoidal  time  dependence  of  eiwt  in  Eq.  (B.17),  then  the 
scalar  wave  equation  becomes 


V2^  +  k2x  =  0 


(B.27) 


where 


n  =  jieicot . 


03.28) 


Considering  that  the  potential  7t  may  be  considered  a  product  of  three 
coordinate  functions,  n  may  be  expressed  in  spherical  coordinates  by 

7c  =  R(r)0(0)O(<f>) .  (B.29) 


The  well-known  functional  forms  of  Eq.  (B.29)  are 


1  d 
sinQ  d0 


d2rR(r) 

dr2 


sin(0) 


d0 
d20(<» 
d<j>2 


w 


d©(0)>| 


n(n+l) 


rR(r)  =  0 
m2 


sin20 


+  m20(<t))  =  0 


0(0)  =  0 


(B.30) 

(B.31) 


(B.32) 
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where  n  is  an  integer  and  m  ranges  from  -n  to  n.  The  solutions  to  Eq.  (B.30) 
are  the  Ricatti-Bessel  functions: 


yn(kr)  =  (7tkr/2)L/2jn+1/2(kr)  (B.33) 

Xn(kr)  =  -(7ckr/2)1/2Nn+i/2(kr)  (B.34) 

where  Jn+1/2(kr)  and  Nn+1/2(kr)  are  the  half-integral  order  Bessel  and 
Neumann  functions.  Note  that  a  linear  combination  of  these  solutions  can 
be  written  as 


Cn(kr)  =  ¥n(kr)  +  ixn(kr)  =  (jtkr/^H^kr)  (B.35) 


(2) 

where  Hn+1/2(kr)  is  the  half-integral  order  Hankel  function.  This  will  be 
used  later.  The  solutions  to  Eq.  (B.31)  are  the  associated  Legendre 
polynomials  given  by 

0(9)  =  P^m)(cos9) .  (B.36) 


The  solutions  to  Eq.  (B.32)  are  sin(m<J))  and  cos(mc{>). 

The  general  solution  to  the  scalar  wave  Eq.  (B.17)  in  spherical  coordinates 
is  simply  the  superposition  of  all  the  particular  solutions: 
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V  V  (m) 

nt  =  r  1  1  *n 

n=0  m=-n 


(B.37) 


oo  n 


=  rX  X  j[cnVn(kr)+dnXn(kr)]p|1m)(cos0)[anCOs(m<{))+bnSin(m4))]l. 
n=0  m=-n  l  J 


At  the  bubble/liquid  boundary  there  is  an  incident  field  (E^,  H^),  an 
internal  field  within  the  bubble  (E^w\  H(w))  and  a  scattered  field  (E^s),  H(3)). 
Thus  we  must  have  corresponding  expressions  for  ixt:  7t2(i\  7ti^wl, 

7C2^W\  and  7t2^-  The  boundary  conditions  are  thus  expressed  by 


“[r(7ii(i)  +  rci(s))]  =~[nti(w)] 

(B.38) 

^Tr(jC2(i)  +  7l2(s))l  =T'[m2(w)] 
or L  J  dr 

(B.39) 

im22k0r(xi(i)  +  =  imi2k0nri(w) 

(B.40) 

im22k0r(x2^^  +  X2^s0  =  im22k0nt2^ 

(BA1) 

where  k0  =  2jcA,0  is  the  propagation  constant  in  free  space  and  mi  and  m2 
are  the  indices  of  refraction  of  the  liquid  and  the  air.  Equation  (B.37) 
determines  the  constants  ir<  the  boundary  conditions.  The  potentials  k\  are 
found  to  be 


™l(i)  =  in'1i|iTT)Vn(k2r)pf(cos0)cos<l> 


(B.42) 
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r7C2(i)  =  ¥n(k2r)Pn1)(cos6)sin4>  (B.43) 

^n=l 

oo  _ 

nti(s)  =  ^2  X  in'1n(n+r)  anCn(k2r)Pn  )(cos0)cos<|>  (B.44) 

nc2(s)  =  ^2  X  ^nfn+f)  bnCn(k2r)Pn)(cos0)sin<j>  (B.45) 

nci(w^  =  e*s  in-iS  cnyn(kir)P^  \cos0)cos((>  (B.46) 

1  n=l  *  J 

nt2(w)  =  ^2  X  in~Xn(n+I)  dnVn(kir)P^1)(cos0)sin(J)  .  (B.47) 


Given  that  the  terms  in  the  series  are  independent  of  each  other,  the 
boundary  conditions  must  hold  for  each  corresponding  term.  This  gives 
four  linear  equations  for  an,  bn,  cn,  and  dn  at  the  spherical  surface,  r=a: 


i[(k2a)  -  anCn'(k2a)]  =  cn(W(kia) 

(B.48) 

(k2a)  -  bnCn  (k2a)J  =  dn(Vn  (ki&) 

(B.49) 

Vn(k2a)  -  an^n(k2a)  =  CnCn(kia) 

(B.50) 

m2[yn(k2a)  -  bnCn(k2a)]  =  dnyn(kia) 

(B.51) 

Only  an  and  bn  are  of  importance  since  we  want  only  the  scattering  wave 
coefficients. 
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VnCoOVnCfl)  -  myn((3)Vn’(g) 

Cn(a)¥n’(3)  -  myn(p)Cn’(a) 
m\)/n(a)Vn'(p)  -  yn(P)^n'(a) 
mCn(a)Vn'(p)  -  yn(p)Cn’(a) 


where  m  =  k]/k2,  a  =  k2a  =  27nn2a/X0,  P  =  kia  =  ma  and  XQ  is  the  wavelength 
of  the  incident  light  in  vacuum. 


Far-field  assumption 


If  we  now  make  a  far-field  assumption  so  that  k2r  «  n,  then  the  radial 
components  of  the  fields  fall  off  as  (X/r2)  and  can  be  neglected  so  that 

Ha  ie-ifor 

E^  =  ’^=~^TS2C0s^  (R54) 

_  Ho  ie*ik2r 

E4>  =  mf  =  "  F2'r_  Sism<!)  •  (B-55) 

The  amplitude  functions  Si  and  S2  are  given  by 

51  =  2  ^n+T)(an7tn(cos0)  +  bnVcos9))  (B.56) 

n=l 

00  2n+l 

52  =  £  n(n+l)'(anTn(cose)  +  bn^n(cos0))  (B.57) 


where  7tn  and  xn  are  given  by 
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P„  \cos0) 

7in(cos0)  = - — —  (B.58) 

sin0 

tn(cos0)  =  *~,P^1>(cos0)  .  (B.59) 

U0 

These  amplitude  functions  Si  and  S2,  are  used  in  Chapter  VI. 


Appendix  C 

ADDITIONAL  FIGURES 
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Figure  C4:  SOE_ 100.070 
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Figure  C7:  SOE_150_058 
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Figure  C8:  SOE_ 150.060 
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Figure  Cll:  SOE_175_058 
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Figure  C15:  SOE_175_066 
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Figure  C19:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
scattering  angle  for  IO4,  20p.,  30n,  and  40p.  bubble  radii. 
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Figure  C20:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
scattering  angle  for  50u,  60n,  70n,  and  80p.  bubble  radii. 
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Figure  C21:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
solid  angle  of  4  degrees  as  a  function  of  scattering  angle  for  IOjj,  20p,  30p,  and  40|i  bubble 
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Figure  C22:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
solid  angle  of  4  degrees  as  a  function  of  scattering  angle  for  50(J,  60p,  70(J,  and  80p  bubble 
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Figure  C23:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
bubble  radius  for  10,  20,  30,  and  40  degree  scattering  angles. 
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Figure  C24:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
bubble  radius  for  50,  60,  70,  and  80  degree  scattering  angles. 


(microns)  Bubble  Radius  (microns) 


DEGREES  inS  110  DEGREES 


(microns)  Bubble  Radius  (microns) 


Figure  C26:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  as  a  function  of 
bubble  radius  for  130,  140,  150,  and  160  degree  scattering  angles. 
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Figure  C29:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
4  degree  solid  angle,  as  a  function  of  bubble  radius  for  50,  60,  70,  and  80  degree  scattering 
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Figure  C30:  Mie  scattering  intensities,  Ii  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
4  degree  solid  angle,  as  a  function  of  bubble  radius  for  90,  100,  110,  and  120  degree 

scattering  angles. 
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Figure  C31:  Mie  scattering  intensities,  Ij  (dotted  line)  and  I2  (solid  line),  integrated  over  a 
4  degree  solid  angle,  as  a  function  of  bubble  radius  for  130,  140,  150,  and  160  degree 

scattering  angles. 
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Appendix  D 


This  appendix  contains  the  program  listings  for  some  of  the  programs  used 
in  this  experimental  study.  Those  programs  included  are: 


DTHRESH 

SOE 

MIENOS 

SLICE 

SHAPE 


Analytic  threshold  solutions  for  shape  oscillations 

Shape  Oscillation  Equation  solver  (Numerical  thresholds) 

Mie  scattering  program 

Program  to  generate  color  pressure  slices 

Experimental  process  control  and  data  acquisition  program 


PROGRAM  THRESH2 


C  THIS  PROGRAM  WILL  CALCULATE  THE  CRUM  &  ELLER  THRESHOLD  PROBLEM 
REAL  *4  R4 

REAL* 8  RMIN,  RMAX,  RINC,  FREQ,  MU,  RHO,  SIGMA,  GAMMA,  PA_INIT,  PA_FINAL,  PA_IMC 
REAL*8  OMEGA,OMEGA0,A,  B,  C,  D,  BETA,  TO,  t2  ,  T4  ,  T6,  Si,  S2  ,  AA,  PA,  E 
REAL *8  PA_SAVE,MU_PRIME,  RO,  TWOPI ,  ROOT,  MU_TOL,  PA_STEP,  KAPPA 
REAL* 8  TMAX,  TINC,  T,  RAVG 

REAL*8  XCOF  { 5 )  ,  COF  ( 5 )  ,  ROOTR  (5)  ,  ROOTI  (5) 

INTEGER  N,  IER,  J, I, 14 ,  NMIN,  NMAX,  J_MIN,  U_MAX 
CHARACTER*40  FILENAME 
LOGICAL  CAL_GAMMA 
EXTERNAL  KAPPA 

DATA  TWOPI/6 . 2831853071796D0/ 

CALL  SCRINI 

CALL  HEADER (  '  CRUM  &  ELLER  SURFACE  THRESHOLDS ' ) 

CALL  ASKR  (' ENTER  MINIMUM  BUBBLE  RADIUS  (MICRONS)  (REAL)  [10.0)  ->  ’, 

2  R4 ,  10.) 

RMIN-DBLE(R4) *1.d-4 

CALL  ASKR  ('ENTER  MAXIMUM  BUBBLE  RAOIUS  (MICRONS)  (REAL)  (100.0)  ->  ', 

2  R4.100.) 

RMAX-DBLE(R4)  *l.D-4 

CALL  ASKR  (' Enter  BUBBLE  RADIUS  INCREMENT  (MICRONS)  (REAL)  [1.0]  ->  *, 

2  R4.1.0) 

RlNC^DBLE  (R4  )  *1  .D-4 

CALL  ASKR  (' Enter  DRIVING  FREQUENCY  (KHZ)  (REAL)  [22.221  ->  ',R4, 

2  22.22) 

FREQ»DBLE(R4) 

FREQ~FREQ*1000.D0 
OMEGA=TWOP  I  *  FREQ 

CALL  ASKR  ('ENTER  KINEMATIC  VISCOSITY  (CM"2/SEC)  (REAL)  (0.0091)  ->  ', 
2  R4, 0.0091) 

NU=DBLE(R4) 

CALL  ASKR  (' ENTER  LIQUID  DENSITY  (G/CM'3)  (REAL)  (1.0)  ->  ’  ,  R4 , 

2  1.0) 

RHO=DBLE(R4) 

CALL  ASKR  (’ Enter  SURFACE  TENSION  (DYN/CM)  (REAL)  [72.5]  ->  ',R4, 

2  72.5) 

SIGMA»D8LE(R4) 

CALL  ASKR  ( 'ENTER  AMBIENT  PRESSURE  PO  (BAR)  (REAL)  [1.0!  ->  ’,R4,1.0) 
PO=-DBLE(R4) 

CALL  ASKR  (' Enter  INITIAL  PRESSURE  PA  (BAR)  (REAL)  [0.05]  ->  '  ,  R4 
2  ,0.05) 

PA_INIT-DBLE  (R4) 

CALL  ASKR  ( 'Enter  FINAL  PRESSURE  PA  (BAR)  (REAL)  [0.3)  ->  ',R4, 

2  0.3) 

PA_FINAL”DBLE(R4) 

CALL  ASKR  ( 'Enter  PRESSURE  INCREMENT  PA  (BAR)  (REAL)  [0.01)  ->  '  ,  R4 
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2  ,0.01) 

PA_INC=DBLE  ( R  4 ) 

CALL  ASKR( 'ENTER  POLYTROPIC  EXPONENT  (0 . 0=CALCULATED)  (REAL)  (1.4)  ->  1  , 
2  R4,  1 . 4) 

GA»iA»DBLE  (R4) 

CAL_GAMMA=R4  .  EQ .  0 . 0 

CALL  ASKR  (' ENTER  ERROR  TOLERANCE  (REAL)  (0.001]  ->  • ,  R4 , 0 . 001 ) 
MU_TOL=*DBL£  (R4) 

CALL  ASKI  (' ENTER  MINIMUM  N  VALUE  (INTEGER)  (2]  ->  ',N_MIN,2) 

CALL  ASKI  (' ENTER  MAXIMUM  N  VALUE  (INTEGER)  [5]  ->  ’,N_MAX,5) 

CALL  ASKI  (' ENTER  MINIMUM  J  (INTEGER)  [1]  ->  *,J_MIN,1) 

call  aski  (' Enter  maximum  j  (integer)  (3]  ->  ’,j_max,3) 

CALL  ASK( 'Enter  base  OUTPUT  FILE  NAME  (THRESH. DAT]  ->  ■ ,  FILENAME, 

2  1  THRESH . DAT  1 ) 


CALL  HEADER  ( •  CRUM  &  ELLER  SURFACE  THRESHOLDS  1  ) 


call  say  ('Minimum  bubble  radius  (microns) 

CALL  SAY(  'MAXIMUM  BUBBLE  RADIUS  (MICRONS) 
CALL  SAY  ('BUBBLE  RADIUS  INCREMENT  (MICRONS) 
CALL  SAY  (  '  DRIVING  FREQUENCY  (  KH2 ) 

CALL  SAY  (' KINIMATIC  VISCOSITY  (CM^/SEC) 

call  say  ('Liquid  density  (g/cm'3) 

CALL  SAY  ( 'SURFACE  TENSION  (DYN/CM) 

CALL  SAY  ('AMBIENT  PRESSURE  PO  (BAR) 

call  say  ('Initial  pressure  (dimensionless) 
call  say  ('Final  Pressure  (dimensionless) 
call  say  (' Pressure  increment  (dimensionless) 

CALL  SAY  (  '  POLYTROPIC  EXPONENT  (DIMENSIONLESS) 

call  say  ('Error  tolerance  (dimensionless) 

CALL  SAY  (  'MINIMUM  N  VALUE 
CALL  SAY  (  'MAXIMUM  N  VALUE 

call  say  (  'Minimum  j  value 
call  say  ( '  Maximum  j  value 

TYPE  *,  'BASE  FILE  NAME 


=  ' ,  REAL (RMIN*1 . D4 ) ) 

=' , REAL (RMAX*1 .D4) ) 

=  '  ,  REAL  (RINC*1 .  D4  )  ) 

=  '  ,  REAL  (FREQ/ 1000  .DO)  ) 
=  '  ,  REAL  ( NU )  ) 

*  '  ,  REAL ( RHO)  ) 

»•  , REAL (SIGMA)  ) 

=  '  ,  REAL  (PO)  ) 

=  '  ,  REAL  (PA_INIT)  ) 

=  ',REAL(PA_FINAL)  ) 
*’,REAL(PA_INC)) 

=  '  .REAL (GAMMA)  ) 

»  ' ,  REAL  (MU_TOL)  ) 

»  '  ,  FLOAT  <N_MIN)  ) 

=  ' ,  FLOAT  (N_MAX)  ) 

=  '  ,  FLOAT  ( J_MIN)  ) 

=  '  .FLOAT  (J_MAX)  ) 

=  '  ,  FILENAME 


CALL  PROMPT  (  '  PROCESSING  .  .  .  ’  ,  0 ) 


OPEN  (UNIT5*!  ,  NAME=FILENAME  ( 1 :  INDEX  (FILENAME,  '  . 
2  STATUS* ' NEW ' ) 

call  out (l, 'Minimum  bubble  radius  (cm) 
call  out ( 1 ,  'Maximum  bubble  radius  (cm) 
call  out(1,  'Bubble  radius  increment  (cm) 
call  out ( 1 ,  'Driving  frequency  (kHz) 

CALL  OUT  (1 ,  'KINIMATIC  VISCOSITY  (CM*2/SEC) 

call  out ( 1 ,  'Liquid  density  (g/ch~3) 
call  out (lt  'Surface  tension  (dyn/cm) 
call  out ( 1 ,  'Ambient  pressure  Po  (bar) 
call  out ( 1 ,  'Initial  Pressure  (dimensionless) 
call  out ( 1 ,  'Final  pressure  (dimensionless) 

CALL  OUT  (1,  'PRESSURE  INCREMENT  (DIMENSIONLESS) 
CALL  OUT (1,  'POLYTROPIC  EXPONENT  (DIMENSIONLESS) 
CALL  OUT ( 1 ,  'ERROR  TOLERANCE  (DIMENSIONLESS) 
CALL  OUT  ( 1 ,  'MINIMUM  N  VALUE 
CALL  OUT  ( 1 ,  '  MAXIMUM  N  VALUE 
CALL  OUT  ( 1 ,  'MINIMUM  J  VALUE 

call  out ( 1 ,  'Maximum  j  value 


'  )  )  //  'STATS', 

=  ',REAL(RMIN*1.D4)  ) 

=  ' ,  REAL  (RMAX*1  •  04 )  ) 

-' , REAL(RINC*1 .D4) ) 

=>'  ,REAL(FREQ/1000.DO)  ) 
*  ' ,  REAL  (NU)  ) 

»'  .REAL  (RHO)  ) 

REAL (SIGMA)) 

=  '  ,  REAL  {  PO)  ) 

*  ' ,  REAL  (PA_INIT)  ) 

=  '  ,  REAL  (PA_FINAL)  ) 
»’,REAL(PA_INC)  ) 

=  '  .REAL  (GAMMA)  ) 

=  '  ,  REAL  (MU_TOL)  ) 

=' , FLOAT (N_MIN) ) 

=  '  ,  FLOAT  (N_MAX)  ) 

=' , FLOAT (J_MIN) ) 

=', FLOAT (J  MAX) ) 
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WRITE  { 1,  *)  'BASE  FILE  NAME  =  FILENAME 

CLOSE ( UNIT- 1) 

CALL  LIBSINITJTIMER 

PO=PO*l.D6 
PA_INIT«PA_INIT*1.D6 
PA_FINAL-PA_FINAL*1  .D6 
PA_INC«PA_INC»1 .06 

OO  N-N_MIN,N_MAX,  1 
DO  J-J_MIN,  J_MAX,  1 

OPEN  (UNIT— 1,  NAME-FILENAME  (1  .'INDEX  (FILENAME,  1 . ' ) “1 ) // ' _N 1 // 

2  CHAR  (N+ICHAR  (  1  0  1  )  )  /  /  •  _J  '  / /CHAR  ( J+ICHAR  (  ‘0  '  )  )  // 

2  FILENAME  (INDEX  (FILENAME,  *.'):)  ,  STATUS- 1  NEW  ’  ) 

DO  RO=RMIN,RMAX,RlNC 
PA_SAVE=0 

mu_prime=2*  (n+2)  *  (2*N+1)  *NU/  (OMEGA*RO*RO) 

IF  (CAL_GAMMA)  GAMMA-KAPPA  (PO,  FREQ,  RO) 

PA»PA_INIT 

PA_STEP-PA_INC 

DO  WHILE  (PA.  LE.PA  FINAL) 

OMEGAO-SQRT  (3*GAMMA*PO/  (RHO*RO*RO)  ) 

BETA-OMEGA/OMEGA0 

AA-PA/ (3*GAMMA*PO*  <BETA*BETA-1)  ) 

A-4*SIGMA*  (N+2)  *  (N*N-1)  /  (RHO*OM£^.*CMEGA*RO*RO*RO) 
b-(3*gamma+1-beta*beta)  /4 
c-(3*gamma+1+5*beta*beta)  /  (4*  (1-4*beta*beta)  ) 

D=  (12*  (3*gamma+1  +  11*beta*beta)  *c-  (3*GAW1A+1)  *  (3*gamma+2) 

2  ) /(24*(1-9*BETA*BETA)  ) 

T0-A+ ( 3*A* (1-B) - (2*N+2 . 5D0) ) *AA*AA 

T2- (2*N+1-1 . 5d0*a) *AA+(3*a* (2*B+C-1.25D0) -3*c+0.75d0- 
2  (N+0.5D0) * (5*C+2*B-1 ,5d0) ) *AA*AA*AA 

T4- (1 .5dO*A* ( 1— C) +0 . 7  5d0  + (N+0 . 5D0)  * (8*C-1) ) *AA*AA 
T6- (A* (3*C-1 ,5oO*D-1 -25D0) +3*C-0 . 75D0  + (N+0. 5d0) * ( 18*D+0 . 5d0- 
2  5*0 ) *AA*AA*AA 

IF  ( J.  EQ.  1 )  THEN 

Sl=T2/2+T2*T4/8+T4*T6/24 
E'T0/2-0. 5dO+T2*T2/16+T4*T4/12 
XCOF (1) -E*E-S1*S1 
XCOF ( 2 )  =0 

XCOF (3)  —1* (E*T2*T2) / ( 4  *S1 *S1 ) 

XCOF  (4) -0 

XCOF(5)-(T2/  (2*S1)  )  **4/4 
ELSE  IF(J.EQ.2)THEN 

Sl-T4/4-T2*T2/16+T2*T6/24 
E-T0/4-l-T2*T2/24+T4*T4/128+T6*T6/40 
XCOF (1!  =E*E-S1*S1 
XCOF (2) =0 

XCOF  (3)— 1+(E*T4*T4)  /(32*S1*S1) 

XCOF ( 4 )  =0 

XCOF  (5)-(T4  /  (4*S1)  )  **4/16 
ELSE  IF(J.EQ.3)THEN 


n  n 
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Sl=T6/6-T2*T4/24 

E=TO/6-1.5d0-T2*T2/96-T4*T4/60+T6*T6/432 

XC0F(1)=E*E-S1*S1 

xcof(2) *0 

XCOF  (3)=1+(E*T6*T6)  /<108*S1*S1) 

XCOF ( 4 )  =0 

XCOF(5)=(T6/ (6*S1) ) **4/36 
ENDIF 

CALL  SOLVE  (XCOF.COF,  4,  ROOTR,  ROOTI, IER) 

CALL  DPOLRT  (XCOF,  COF,  4  ,  ROOTR,  ROOTI,  IER) 

IF  (IER. NE.  0)  THEN 

type  *,'Error  in  DPOLRT,  ier=',ier 
TYPE  *,  'R, PA= ' , RO, PA 
GOTO  10 
ENDIF 


ROOT=ROOTR<1)  !FIND  CLOSEST  ROOT  TO  HU_PRIME 

DO  1=2,4, 1 

IF  (ABS  (ROOTR  (I)  -MU_PRIME)  .  LT  .  ABS  ( ROOT -MU_P RIME)  .  AND  .  ROOTR  ( I ) 
,GT.0)ROOT=ROOTR(I) 

END  DO 


! FOUND  THRESHOLD! 


.’HALVE  STEP  SIZE 


IF  (ROOT.GE.MU_PRIME)  THEN 

IF  (ABS  ( ROOT-MU_PRIME )  .  LE  .  MU_TOL )  THEN 
PA_SAVE=PA 
GOTO  11 
ENDIF 

PA=MAX  (PA-PA_STEP,  PA_INIT) 

PA_STEP=PA_STEP  /2 
PA=MAX(PA-PA_STEP,  FA_INIT) 

IF  ( PA_STEP .  LT .  PA_INC/1 00000)  THEN 

TYPE  *,  'UNABLE  TO  OBTAIN  DESIRED  TOLERANCE  IN  50000  HALVES' 

TYPE  *,  '  RO.  MU_PRIME=  '  ,REAL(RO*l  ,D4)  ,  REAL  (MU_PRIME) 

TYPE  *,  'ROOT=' .REAL  (ROOT) 

PA_SAVE=PA  .'GIVE  VALUE  ANYWAY 

GOTO  11 
ENDIF 
ENDIF 
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PA-PA+PA  STEP 


END  DO  !  PA 
GOTO  12 

I F  ( ROOT  .  GT  .  MU_PRIME )  THEN 
PA_SAVE=PA_INIT 

else 

pa_save=pa_final 

ENDIF 


! NO  THRESHOLD 
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TMAX-1.  DO/22220.  DO 
tinc=tmax/200 
RAVG=0 
1  =  0 

DO  T=0.D0,TMAX,TINC 

RAVG=RAVG  +  RO*  (  ( 1+AA*  AA*8)  +AA*COS  (OMEGA*T)  +AA*AA*C* 
COS  (2*OMEGA*T)  +AA*AA*AA*D*COS  (3*OMEGA*T)  ) 

1  =  1  +  1 
END  DO 
RAVG=RAVG/I 


2 


WRITE  (X,  *)  REAL(R0*1  .d4)  ,  REAL  (RAVG*1 .  D4  )  ,  REAL  (PA_SAVE*1  .D-6)  , 
REAL  ( ROOT- MU_PRIME ) 

CONTINUE 

END  DO  !  RO 

CLOSE  (UNIT=1) 

END  DO  !  J 

END  DO  !  N 

CALL  LIB$SHOW_TIMER 

CALL  EXIT 

END 

SUBROUTINE  SAY  (STR,  VAL) 

CHARACTER*  (  * )  STR 
REAL* 4  VAL 

IF  (ABS  (VAL)  .  LT .  32767)  THEN 
IF ( IFIX (VAL) .EQ. VAL) THEN 
TYPE  *, STR, IFIX (VAL) 

RETURN 

ENDIF 

ENDIF 

TYPE  *,  STR,  VAL 

RETURN 

END 

SUBROUTINE  OUT  (CHAN,  STR,  VAL) 

INTEGER  CHAN 
CHARACTER* (*)  STR 
REAL* 4  VAL 

IF  (ABS  (VAL)  .  LT .  32767)  THEN 
IF ( IFIX (VAL) .EQ. VAL) THEN 
WRITE  (CHAN,  *)  STR,  IFIX  (VAL) 

RETURN 

ENDIF 

ENDIF 

WRITE  (CHAN,  *)  STR,  VAL 

RETURN 

END 


SUBROUTINE  SOLVE  (XCOF,  COF,  NEQ,  ROOTR,  ROOTI ,  IER) 

REAL*8  XCOF  ( 1 )  ,  COF  ( 1 )  ,  ROOTR  ( 1 )  ,ROOTI(1) 
INTEGER  NEQ, IER 
COMPLEX*16  A,  B,C,MU 

IER-0 

A«DCMPLX(XCCF(5)  ) 

B-DCMPLX(XCOF(3)  ) 

C=DCMPLX(XCOF(l)  ) 
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MU-SQRT<  (-B  +  SQRT<B*B-4*A*C)  )  /  (2*A)  ) 
ROOTR(l)  =DR£AL(MU) 

ROOTI  (1)  =DIMAG(MU) 

ROOTR  ( 2 )  =DR£AL  ( -MU ) 

ROOTI  (2)  =DIMAG(-MU) 

MU— SQRT  (  ( -B-SQRT  ( B*B-4  *A*C)  )  /  (2*A)  ) 
ROOTR  (3)  “DREAL(MU) 

ROOTI  (3)  —DIMAG  (MU) 

ROOTR  (  4  )  “DREAI.  { -MU) 

ROOTI  (4  )  =OIMAG  (-MU) 

RETURN 

END 


nnooooonooo 


PROGRAM  SOE  DOUBLE 


C 

C  THIS  IS  A  PROGRAM  TO  EVALUATE  THE  SHAPE  OSCILLATION  EQUATION  FOUND  IN: 

c  Bubble  phenomena  in  sound  fields:  part  too  by  a.  Prosperetti 

C  IN  THE  ACOUSTIC  CAVITATION  SERIES:  PART  THREE 

C 

C  R  (THETA,  PHI  ;T)  =  R  (T)  +  SUM  (L,  M)  [  ALM  (T)  YLM  (THETA,  PHI )  ] 

C  R(THETA,PHI;T)  =■  R(T)  +  AN  (T)  PN  (COS  (THETA)  ) 

C 

C  WHERE  An  ARE  THE  COEFFICIENTS  TO  BE  CALCULATED  AND  PN  IS  A  LEGENDRE  POLYNOMIAL 
C  WE  ASSUME.  THAT  WE  HAVE  AXISMMETRY  (IE.  THE  BUBBLE  SHAPE  IS  AXISYMMETRICAL) 

C 

C  THE  COEFFICIENT  EQUATION  IS: 


C 

C  DDAN  +  [  3DR/R  +  2  (N+2)  (2N  +  1 )  (MU/  (RHO*R~2)  )  ]  DAN  + 

C  ( N —  1 )  *  [  -DDR/R  +  (N  +  l)  (N  +  2)  (SIGMA/ (RHO*Ra3)  )  + 

C  2  (N+2)  (MU*DR)  /  (RHO*R*3)  IAN  =  0 

C 

C  WHERE  "D"  MEANS  FIRST  TIME  DERIVATIVE  AND  "DD”  MEANS  SECOND  TIME  DERIVATIVE 
C 


AN 

MU 

N 

R 

RHO 

SIGMA 


Legendre  coefficients 

VISCOSITY  OF  LIQUID 

mode  number  =  1  Translation 

>  1  SHAPE  MODE 

MEAN  BUBBLE  RADIUS  AS  CALCULATED  FROM  RPE 
DENSITY  OF  LIQUID 

SURFACE  TENSION  BETWEEN  LIQUID  AND  AIR  BUBBLE 


TO  SOLVE  LET 


Y3  -  AN 
C  Y4  =  DAN 

C 

C  THEN  CONVERT  TO  2  COUPLED  FIRST  ORDER  EQUATIONS: 

C 

C  DY3  =  Y  4 

C  DY4  -  -  (  3DR/R  +  2  (N+2)  (2N  +  1)  (MU/ (RHO*R'2)  )  )  Y4  - 

C  ( N —  1 )  [  -DDR/R  +  (N  +  l)  (N  +  2)  (SIGMA/  (RHO*R~3)  )  + 

C  2  (N+2)  (MU*DR) /(RHO+R^)  !  Y3 

C 

£*#*#**#**#**#*********#*#*****#*****#*******************«****#**# 


C  THE  RPE  IS  ALSO  SOVLED  BY  2  COUPLED  FIRST  ORDER  EQUATIONS: 

C 

C  SOLVE  THE  RAYLEIGHT-PLESSET  EQUATION  USING  THE  POLYTROPIC  APPROXIMATION 
C 

C  R  DDR  +  3/2  DR**2  =  1/RHO  {  Pi  -  P  (T)  —  2SIGMA/R  -  4MU/R  DR  ] 

C 

C  Assume  polytropic  approx:  Pi  =  Po(Ro/R)  "3gamma 

C  PIT)  -  PINFll-NU  SIN  (OMEGA  T)  ) 

C  PO-PINF  =  2SIGMA/R0  (NO  TRANSFER) 

C  R  =  RO+X 

C  RESULTING  equation  becomes: 

c 

C  DDX  -  -1 . 5*DX'"2/X  +  1/ (RHO*RO'2*X)  [PO*X"-3gaMMA-  (PO-2SIGMA/RO)  (1- 
C  NU  +  SIN  ( OMEGA *T )  )  -2SIGMA/  <RO*X)  -4MU*DX/X) 

C 

C  Where  dX  means  derivative  of  X  with  respect  to  t 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DDX  MEANS  2nd  DERIVATIVE  OF  X  WITH  RESPECT  TO  T 

CONVERT  TO  2  COUPLED  FIRST  ORDER  EQUATIONS 

LET  Y1  =  X 
Y2  =  DX 


DY1  -  12 

0 12  =  -1 .5*Y2"2/Y1  +  1/ (RHO*RO*2*Yl>  ( PO* Y1 '-3GAMMA- (PO-2SIGMA/RO)  (1- 
NU* SIN  (OMEGA+T)  )  -2SIGMA/  (RO*Yl)  -4MU+Y2/Y1] 


WHERE 

PlNF  AMBIENT  PRESSURE 

RHO  DENSITY  OF  THE  LIQUID 

RO  INITIAL  BUBBLE  RADIUS 

CMEGA  DRIVING  FREQUENCY 

SIGMA  INTERFACIAL  TENSION  (AIR  BUBBLE  IN  WATER) 

MU  VISCOSITY  OF  LIQUID 

NU  DRIVING  FREQUENCY  PRESSURE  AMPLITUDE  (DIMENSIONLESS 

AS  A  FACTOR  OF  PlNF  NORMALLY  1) 

GAFMA  POLYTROPIC  EXPONENT 

if******************************************************************* 


COMBINING  ALL  4  EQUATIONS  GIVES: 

DY1  =  12 

dY2  -  -1.5*Y2A2/Y1  +  1/(rho*R0~2*Y1)  (Po*  Y1a-3gamma- (Po-2sigma/Ro)  (1- 
NU*SIN(OMEGA*T)  )  -2SIGMA/  (RO*Yl)  -4MU+Y2/Y1) 

DY3  -  Y4 

DY 4  =  - ( 3Y2/Y1+2 (n+2 )  (2N+1)  mu/ (rho*RO/'2*Y1'2)  )  Y 4  -  (N-l)  [  -DY2 /Y1  + 
(N+l)  (n+2)  sigma/  (rho*Ro*3 * Y1 ~3 )  +  2  (n+2)mu*Y2/ (Rho*RO''2*Y1'3)  )  Y3 


►**»******♦< 


The  inputs  to  this  program  can  either  be  interactivly  entered  or  from 
a  batch  file.  The  inputs  from  a  batch  file  are  the  same  as  the  interactive 

COMMANDS.  THE  PROGRAM  WILL  OUTPUT  A  NUMBER  OF  FILES  DEPENDING  ON  THE 
ANSWERS  GIVEN  IN  THE  INPUT. 

(NOTE  THAT  "BASE"  IS  THE  FIRST  PART  OF  THE  FILENAME  GIVEN  IN  THE  INPUT.) 


FILE  NAME 
BASE .  DAT 


WHEN  OUTPUT 

WHEN  RT  CURVES  ARE  SPECIFIED 


BASE.  DRIVE  WHEN  RT  CURVES  ARE  SPECIFIED 


BASE.  STATS  ALWAYS 


DESCRIPTION 

CONTAINS  THE  FOLLOWING: 

T,  R,  V,  A,  DA 
T=TIME  (PERIODS)  ,  R«=RADIUS  (CM)  , 
V-RADIAL  VELOCITY  (CM/S)  , 
A=SURFACE  OSCILLATION  AMPLITUDE 
DA=SURF.  OSC.  VELOCITY 

CONTAINS  THE  TIME  ( PERIODS  )  ,  AND 
THE  DRIVE  AMPLITUDE  IN  AMBIENT 
PRESSURE  UNITS 

CONTAINS  INFORMATION  ABOUT 
THE  INPUTS  TO  THE  PROGRAM 


BASE.RSECT  ALWAYS 


CONTAINS  THE  R  AND  DR  SECTION 


o  n 
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c 

c 


c 

C  HASE.ASECT  WHEN  MODE  <>  0 

C 

C 

C 

C 


POINTS  IN  (CM)  AND  (CM/S)  . 

SECTION  POINTS  ARE  CALCULATED 
AT  THE  END  OF  EACH  DRIVING 
PERIOD. 

CONTAINS  THE  A  AND  DA  SECTION 
POINTS  IN  ARBITRARY  UNITS. 

SECTION  POINTS  ARE  CALCULATED 
AT  THE  END  OF  EACH  DRIVING 
PERIOD. 

A*************************** 


IMPLICIT  REAL* 8  (A-Z) 


CHARACTER*  1  CH 
LOGICAL  BATCH, RT 

INTEGER  NEQ, METHOD, POINTS, EXTEND 

COMMON  /MAIN/  MU,  NU,  OMEGA,  SIGMA,  GAMMA,  RHO,  RO,  PO,TOL,  METHOD,  NEQ,  POINTS, 
2  EXTEND,  RT,  PINF,  FREQ 

COMMON  /SIMPLE/  Cl ,  C2  ,  C3  ,  C4  ,  C5  ,  C6,  Cl  ,  C8  ,  C9 

COMMON  /INITIAL/  Yl_INIT,Y2_INIT,Y3_INIT,Y4_INIT,TMIN,TMAX,TINC,TSKIP 
TYPE  1 

1  FORMAT  (  '  INTERACTIVE  OR  BATCH  ( I/B)  ?  '$) 

ACCEPT  '  (Al)  '  ,  CH 

BATCH-CH . EQ .  '  B  '  .  OR . CH . EQ .  '  B  ' 

CALL  READ  VALUES  (BATCH) 

CALL  LIBSlNITJTIMER 

CALL  SOLVE 

IF ( .NOT. BATCH) CALL  PROMPT (  'DONE.  ' ,  0) 

CALL  LIBSSHOW  TIMER 


IF  (RT)  THEN 

CLOSE (UNIT=1 ) 

CLOSE  <UNIT=3) 

ENDIF 

CLOSE (UNIT— 10) 

IF  (NEQ.  GT.  2)  CLOSE (UNIT=11) 

CALL  EXIT 
END 

SUBROUTINE  SOLVE 
IMPLICIT  REAL*8  (A-Z) 

INTEGER  NEQ, IDO, I,  METHOD, IWK (4)  , INDEX, IER,  METH, MITER,  NUM_WRITE, POINTS 

INTEGER  OLD_NEQ,  EXTEND 

DIMENSION  Y  (4  )  ,  PARAM  (50)  ,  WK  ( 100) 

LOGICAL  STEADY, STEADY_STATE, FIRST, RT 

COMMON  /MAIN/  MU,  NU,  OMEGA,  SIGMA,  GAMMA ,  RHO,  RO,  PO,  TOL,  METHOD,  NEQ,  POINTS , 

2  EXTEND,  RT,  PINF,  FREQ 

COMMON  /SIMPLE/  C 1 ,  C2  ,  C3  ,  C4  ,  C5  ,  C6 ,  C?  ,  C8  ,  C9 

COMMON  /INITIAL/  Yl_INIT,  Y2_INIT,  Y3_INIT,  Y4  INIT,  TMIN,  TMAX,  TINC,  TSKIP 


EXTERNAL  FCT,  FCNJ,  ST£ADY_STATE 


DATA  R_T0L/1  .D-6/,  V_TOL/0  .  IDO/ 

Y(l)=Yl_INIT  +  1  .'INITIAL  CONDITIONS  (T=0) 

Y (2) =Y2_INIT 
IF (NEQ.GT.2) THEN 
Y  (3)  =Y3_INIT  +  1 
y(4)=y4_init 

ENDIF 

DO  1=1,50,  1 
PARAM(I)  =0.0 
END  DO 

PARAM(4)  =1  .e7 
PARAM  (10)  =1 .0 

IDO  =  1 
INDEX  =  1 
X=TMIN 
H=TINC/100. 

METH=2 
MITER=0 
NUM__WRITE=0 
STEADY* .  FALSE . 

FIRST= .  TRUE, 

C  FIND  STEADY  STATE  SOLUTION  FOR  R 

OLD_NEQ=NEQ 
NEQ=2 

DO  T=TMIN+POINTS*TINC,TMAX,TINC*POINTS  !  SECTION  POINTS  ONLY 

XEND=T 

IF  ( METHOD.  EQ.  1)  THEN 

CALL  DIVPRK  ( IDO,  NEQ,  FCT,  X,  XEND,  TOL,  PARAM,  Y) 

IF  (IDO.NE.2)  THEN 

TYPE  *,  'ERROR,  IDO-  '  ,  IDO 
TYPE  *,  'HTRIAL  =  ',PARAM(31! 

TYPE  * ,  '  NSTEP  =  ',  PARAM  (34) 

TYPE  * ,  '  NFCN  =  ',  PARAM  (35! 

DO  1=1, NEQ, 1 

TYPE  *,  'Y  =  • , Y ( I ) 

END  DO 
STOP 
ENDIF 
ELSE 

CALL  DGEAR  (NEQ,  FCT,  FCNJ,  X,  H,  Y,  XEND,  TOL,  METH,  MITER, 

2  INDEX,  IWK,  WK,  IER) 

IF ( INDEX. NE.O) THEN 

type  * ,  ' Error  in  DGEAR,  index  <>  O' 

TYPE  *,  '  XEND=  '  ,  XEND 
TYPE  *,  'H=',H 
STOP 
ENDIF 

IF(IER.GT.128)THEN 

TYPE  *,  'ERROR  IN  DGEAR,  IER  >  128' 

TYPE  », ' I ER= ' , IER 
TYPE  *,  '  XEND=  '  ,  XEND 


(DEFAULT  PARAMETERS 

(MAX  STEPS 

(ABSOLUTE  ERROR  CONTROL 
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TYPE  *, ' H= ' , H 
STOP 
ENDIF 
ENDIF 

IF  (X  .  GT .  TSKIP )  THEN 
IF (FIRST) THEN 
R_SECT_1=Y  (1) 

V_SECT_1=Y<2) 

R_SECT_0-1  .E30 
V_SECT_0  =  1  .£30 

WRIT£(10,  *)  R£AL(R0*R_SECT_1)  ,  REAL  (RO*V_SECT_l ) 

FIRST* . FALSE . 

ELSE 

R_SECT_2=Y(1) 

V_SECT_2=Y  (2) 

IF  ( ABS  ( R_SECT_1  -R_SECT_2  )  .  LE  .  R_TOL .  AND  . 

2  ABS  (V_SECT_1-V_SECT_2)  .LE.V_TOL)  STEADY*.  TRUE.  !  PERIOD  1 

IF  (ABS  (R_SECT_0-R_S£CT_2  )  .  LE  .  R_TOL  .  AND  . 

2  ABS  (V_SECT_0-V_S£CT_2 )  .LE.V_TOL)  STEADY*.  TRUE.  !  PERIOD  1/2 

R_SECT_0  *R_SECT_1 
V_SECT_0  =V_SECT_1 
R_SECT_1  =R_SECT_2 
V_SECT_1  =V_SECT_2 

WRITE  (  1 0  ,  * )  REAL  ( RO*R_SECT_2 )  ,  REAL  ( RO*V_SECT_2  ) 

ENDIF 

IF (STEADY) GOTO  99 
ENDIF 
END  DO 

IF  (.NOT.  STEADY)  THEN 

TYPE  *  ,  '  STEADY  STATE  NOT  REACHED  ’ 

RETURN 

ENDIF 

99  CONTINUE 

C  STEADY  STATE  REACHED,  NOW  PERTURB  A'S  (IF  NEEDED) 

NEQ=OLD_NEQ 
IDO  *  1 
INDEX  *  1 

TMAX=EXTEND*TINC*POINTS 

IF  (  .NOT.RT)  TINC=TINC*POINTS  !  SECTION  OUTPUT  ONLY 

DO  T*X+TINC, X+TMAX, TINC 
XEND*T 

IF  (METHOD  .  EQ.  1 )  THEN 

CALL  DIVPRK  (IDO,  NEQ,  FCT,  X,  XEND,  TOL,  PARAM,  Y) 

IF  (IDO. NE. 2)  THEN 

type  *, 'Error,  ido=',ido 
TYPE  *,  '  HTRIAL  =  1 ,  PARAM  (31) 

TYPE  *,  'NSTEP  =  ',PARAM(3<!) 

TYPE  *,  '  NFCN  *  ', PARAMOS) 

DO  1  =  1,  NEQ,  1 

TYPE  ’  Y  =  ' , Y (I) 

END  DO 
STOP 
ENDIF 
ELSE 

CALL  DGEAR  (NEQ,  FCT,  FCNJ,  X,  H,  Y,  XEND,  TOL,  METH,  MITER, 

INDEX,  IWK,  WK,  IER) 


2 
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IF  ( INDEX. NE.  0)  THEN 

TYPE  *,  'ERROR  IN  DGEAR,  INDEX  <>  O' 

TYPE  * ,  '  XEND“  1  ,  XEND 
TYPE  *, 1 H* ' , H 
STOP 
ENDIF 

IF(IER.GT.128)THEN 

TYPE  *,  'ERROR  IN  DGEAR,  IER  >  128' 

TYPE  *, 'IER=' , IER 
TYPE  *,  '  XEND=  1 ,  XEND 
TYPE  * ,  '  H=  '  ,  H 
STOP 
ENDIF 
ENDIF 

IF  (RT)  THEN 

IF(NEQ.EQ.2)WRITE<1, *)  REAL  (X*FREQ)  ,  REAL  (RO*Y  ( 1 )  )  ,  REAL(RO*Y<2)  ) 

IF  (NEQ.  EQ.  4  (WRITE  (1,  *)  REAL  (X*FR£Q)  ,  REAL  (  RO*  Y  ( 1 )  )  ,  REAL(RO*Y  (2)  )  , 

2  REAL(Y(3()  ,REAL(Y(4)  ) 

WRITE(3,  *)  REAL(X*FR£Q)  ,  REAL  (PINF*NU*SIN  (OMEGA’T)  ) 
NUM_WRITE=NUM_WRITE+1 
IF  (NUM_WRITE.EQ.  POINTS)  THEN 
NUM_WRITE=0 

WRITE  (10,*)  REAL  (RO’Y(l)  )  ,  REAL  (  RO*Y  (2  )  ) 

IF(NEQ.GT.2)WRITE(11,  *)  REAL(Y(3)  )  ,REAL(Y(4)  ) 

ENDIF 

ELSE 

WRITE  (10,  *)  REAL  (RO*Y  ( 1 )  )  ,  REAL  (RO*Y  ( 2 )  )  'SECTION  R  DR 

IF(NEQ.GT.2)WRITE(11,  *)  REAL  ( Y  ( 3)  )  ,  REAL  ( Y  ( 4  )  )  !  SECTION  A  DA 

ENDIF 
END  DO 

IDO  -  3  ! DONE 

IF  (METHOD.  EQ.l)  CALL  IVPRK(IDO,  NEQ,  FCT,  X,  XEND,  TOL,  PARAM,  Y) 

RETURN 

END 

SUBROUTINE  FCT  (NEQ,  X,  Y,  DERY) 

IMPLICIT  REAL* 8  (A-Z) 

INTEGER  NEQ, METHOD 
DIMENSION  Y  (NEQ)  ,  DERY  (NEQ) 

COMMON  /MAIN/  MU,  NU,  OMEGA,  SIOIA,  GAMMA,  RHO,  RO,  PO,  TOL,  METHOD 
COMMON  /SIMPLE/  Cl  ,  C2  ,  C3  ,  C4  ,  C5  ,  C6,  C7  ,  C8  ,  C9 

C 

c 
c 
c 
c 
c 
c 
c 
c 


Cl=(2.0*siGMA)  /RO 

c2=Po-cl 

C3  =  4 . 0*MU 

C4=-3.0*GAMMA 

C5=RH0*R0*R0 

C6=2* (N+2) * (2*N+1) *MU/C5 
C7—  {  (N  +  l )  *  (N+2)  *SIGMA)  /  (C5*RO) 
C8=2  *  (N  +  2)  *MU/C5 
C9=N-1 


dery(1)=y(2) 

DERY(2)  =  (-1.5*Y(2)  *Y<2)  )  /Y(l)  +  (1 .0/ (C5*Y(1)  )  )  *(PO*Y(l)  *  *c4  - 
2  c2*  (1 . 0-NU*SIN  (OMEGA*X)  )  -  (Cl +C3*Y  (2  )  )  /Y  ( 1 )  ) 

IF(NEQ.GT.2)THEN 

dery(3)  =y(4) 
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DERY<4)  —  <3.0*Y<2) /Y(l)+C6/  (Y  (1)  *Y  (1)  )  )  *Y  (4)  -C9*  (-DERY  (2)  /Y ( 1 ) + 
2  (C7+C8*Y  (2)  )  /Y  (1)  **3 )  *Y  (3) 

ENDIF 

RETURN 

END 

SUBROUTINE  FCNJ(N,X,Y,  PD) 

INTEGER  N 

REAL*8  Y(N)  ,PD(N,N)  ,x 

RETURN 

END 

SUBROUTINE  READ_VALUES  (BATCH) 

IMPLICIT  REAL*8  (A-Z) 

REAL* 4  R4 

INTEGER  PERIODS, POINTS , SKIP , MODE, NEQ, METHOD, EXTEND 
CHARACTER*  60  FILENAME 
CHARACTER*  1  CH 
LOGICAL  BATCH, RT 

EXTERNAL  KAPPA 

COMMON  /MAIN/  MU,  NU,  OMEGA,  SIGMA,  GAMMA,  RHO,  RO,  PO,  TOL,  METHOD ,  NEQ,  POINTS, 

2  EXTEND,  RT,  PINF,  FREQ 

COMMON  /SIMPLE/  C1,C2,C3,C4.C5,C6,C7,C8,C9 

COMMON  /INITIAL/  Yl_INIT,  Y2_INIT,  Y3_INIT,  Y4_INIT,  TMIN,  TMAX,  TINC,  TSKIP 

DATA  TWOPI/6. 2831853/ 

IF (BATCH) THEN 
TYPE  1 

1  FORMAT  ('  ENTER  INPUT  DATA  FILE  NAME  ->  '  S) 

ACCEPT  *  (A60)  FILENAME 

OPEN  (UNIT—3,  NAME-FILENAME,  STATUS—  'OLD  ’  ,  READONLY) 

2  FORMAT ( I ) 

3  FORMAT  (G) 

4  FORMAT  (Al) 

READ  (  3 ,  4  )  CH 
METHOD-0 

IF (CH . EQ .  'R*  .OR.CH.EQ.  '  R '  ) METHOD— 1 
IF(CH.EQ.  'G'  .OR.CH.EQ.  'G' ) MET HOD =2 

if  (method.  eq.O)  stop' Invalid  method  specified' 

READ  (3, 3)  R4 
RO—DBLE (R4 ) 

READ  (3 , 3)  R4 
PINF»DBLE(R4) 

READ  (3, 3)  R4 
FREQ-DBLE (R4) 

READ  (3, 3)  R4 
RHO-DBLE (R4) 

READ  (3,  3)  R4 
SIGMA-DBLE (R4) 

READ  ( 3 , 3 )  R  4 
MU=DBLE(R4) 

READ  (3, 3)  R4 
NU“DBLE(r4) 

READ  (3,  2)  PERIODS 
READ  (3, 2)  POINTS 


READ  (  3 , 2)  SKIP 
READ  (3,  3)  R4 
Y1_INIT-DBLE(R4) 

READ  (3, 3)  R4 
Y2_INIT-DBLE(R4) 

READ  (3, 2)  MODE 
READ  (3,3)  R4 
TOL=DBL£ ( R4 ) 

READ  (3,  2)  EXTEND 
R£AD(3,  4)  CH 

RT=CH .  EQ . ' R '  .  OR .  CH .  EQ . '  R  1 
READ  (3,  '  (A60)  '(FILENAME 
CL0SE(UNIT=-3) 

ELSE 

CALL  SCRINI 

CALL  HEADER  (' SHAPE  OSCILLATION  EQUATION  SOLVER') 

CALL  ASK  ( 'ENTER  INTEGRATION  METHOD  ( R=RUNGE-KUTTA,  G-GEAR)  (R)  ->' 
2  CH, 'R') 

METHOD=l 

IF (CH . EQ .  'G'  .OR.CH.EQ.  ' G ' )  METHOD3 2 

CALL  ASKRCENTER  INITIAL  BUBBLE  RADIUS  (CM)  [0.005)  ,  R4 , 0 . 005) 

RO=DBL£(R4) 

CALL  ASKR( 'Enter  AMBIENT  PRESSURE  (BAR)  [1.01325]  ->  '  ,  R4 , 1 . 01 325  ) 
PINF=DBLE (R4) 

CALL  ASKR  (' Enter  DRIVING  FREQUENCY  (KHZ)  [22.22]  ->',R4, 

2  22.22) 

FREQ=DBLE (R4 ) 

CALL  ASKR  (' ENTER  DENSITY  OF  LIQUID  (GRAMS/LITER)  [1.0]  ->  '  ,  R4  ,  1  .  ) 
RHO=DBLE(R4) 

call  askr (' Enter  interfacial  tension  (dynes/cm)  [72.5] 

2  r4 , 72 . 5) 

SIGMA=DBLE(R4) 

CALL  ASKRCENTER  VISCOSITY  OF  THE  LIQUID  (G/CM-SEC)  [0.0 1)  -> '  , 

2  R4 , 0 . 01 ) 

MU=OBLE(R4) 

CALL  ASKRCENTER  PRESSURE  AMPLITUDE  FACTOR  (DIMENSIONLESS)  'll 
2  '  [1.0]  -> ' , R4 , 1 . ) 

NU=DBLE (R4 ) 

CALL  ASKI  (  'Enter  MAXIMUM  number  OF  DRIVING  FREQUENCY  PERIODS  [10]  ->' 
2  PERIODS,  10) 

call  aski ('Enter  number  of  integration  points/period  [100]  ->', 

2  POINTS,  100) 

CALL  ASKICENTER  NUMBER  OF  PERIODS  TO  SKIP  [0]  ->',SKIP,0) 

CALL  ASKR  ( 'ENTER  INITIAL  DISPLACEMENT  (DIMENSIONLESS)  [0.0]  ->  '  , 

2  r4 , 0 . 0) 

Y1_INIT=DBLE(R4) 

CALL  ASKR  (' ENTER  INITIAL  VELOCITY  (DIMENSIONLESS)  [0.0]  ->  ' , 

2  R4 , 0 . 0 ) 

Y2_INIT=DBLE(R4) 

CALL  ASKICENTER  MODE  NUMBER  (N  >  2)  [2]  ->',MODE,2) 

IF  (MODE.  LE.0)  THEN 

CALL  PROMPT  (  '  RADIUS  VALUES  ONLY.  '  ,  0) 

CALL  WAIT 
END  IF 

CALL  ASKR  (' ENTER  ERROR  TOLERANCE  (PEAL)  [0.0001]  ->  '  ,  R4 , 0 . 0001 ) 
TOL“DBLE(R4) 

call  aski  ( '  Enter  number  of  cycles  to  output  after  steady 
2  STATE  [20]  ->',  EXTEND,  20) 


CALL  ASK  (' RT  CURVES  OR  SECTION  CURVES  (R/S)  [S]  CH.'S') 

RT-CH.EQ.  '  R '  . OR . CH . EQ .  '  R  ' 

CALL  ASK  CENTER  OUTPUT  FILE  NAME  (SHAPE.DAT!  FILENAME,  'SHAPE.DAT' ) 

ENDIF 

NEQ-4 

IF(MOD£.L£.0)NEQ-2 

Y3_INI?-0 

Y4_INIT-0 

PINF-PINF*1.0d6  !  convert  TO  CGS 

FREQ=FREQ*1000  !  CONVERT  TO  HERTZ 

OMEGA-TWOP I  *  FREQ  !  CONVERT  TO  ANGULAR  RADIANS 
PO-PlNF+2*SIGMA/RO 
TMIN-0 

TMAX-<1/FREQ)  *  FLOAT  (PERIODS) 

TINC- (1/FREQ)  /FLOAT  (POINTS) 

TSKIP-  (1/FREQ)  *FLOAT  (SKIP) 

GAMMA-KAPPA  ( ) 

FREE_RES-1/  (TWOPI*RO)  *SQRT(  (3*GAMMA*PO)  /RHO) 

OPEN  (UNIT— 1 ,  NAME— FILENAME  ( 1 :  INDEX  (FILENAME,  '  .  '  )  )  /  /  'STATS  '  , 

2  STATUS-  '  NEW  '  ) 

LUN-1 

IF  (METHOD .  EQ .  1 )  THEN 

WRITE  (LUN,*)  'USING  RUNGE-KUTTA  METHOD' 

ELSE 

write (lun,  * )  'Using  Gear  method' 

ENDIF 

write (lun,  *)  'Initial  pressure  (bar) 
writeuun,  *)  'Density  of  liquid  (grams/liter) 

WRITE (LUN,  *)  'INITIAL  BUBBLE  RADIUS  (CM) 

write  (lun,*)  'Driving  frequency  (kHz) 
write (lun,  *)  'Interfacial  tension  (dynes/cm) 
write (lun,*)  'Viscosity  of  the  liquid  (g/cm-sec) 

WRITE  (LUN,*)  'PRESSURE  AMPLITUDE  FACTOR 
WRITE  (LUN,  *)  'POLYTROPIC  EXPONENT 
WRITE  (LUN,  *)  'MAX  NUMBER  OF  DRIVING  FREQ  PERIODS 
WRITE  (LUN,*)  'NUMBER  OF  INTEGRATION  POINTS/PERIOD 
WRITE  (LUN,*)  'FREE  RESONANCE  FREQUENCY  (KHZ) 

write (lun,*)  'Driving  freq  /  Resonance  freq 
write (lun, *)  'Initial  displacement  from  equil 

WRITE  (LUN,*)  'INITIAL  VELOCITY 
WRITE  (LUN,  *)  'SHAPE  MODE  NUMBER 

write  (lun,*)  'Error  tolerance 

WRITE  ( LUN ,  * )  'DATA  FILE  NAME 
IF  (LUN .  EQ.  1 )  THEN 

write  (lun,  *)' Extended  cycles  =  '.extend 

IF  (RT)  WRITE  (LUN,  *)  '  RT  CURVES  SPECIFIED' 

WRITE  (LUN,*)'**************************************************** 
WRITE  (LUN,  *)  'TMIN,  TMAX,  TlNC  ',  REAL  (TMIN)  ,  REAL  (TMAX)  ,  REAL  (TINC) 

CLOSE (UNIT-1) 

IF  ( .NOT.  BATCH)  THEN 
LUN-5 

CALL  HEADER  (  '  SHAPE  OSCILLATION  EQUATION  SOLVER') 

GOTO  10 


-  '  ,  REAL  ( PO/ 1 .  OD  6 ) 

=  '.REAL (RHO) 

-  ’.real(Ro) 

-  ',  REAL  (FREQ/1000) 

-  '  ,  REAL ( SIGMA) 

-  '.REAL  (MU) 

=  '  ,  REAL  (NU) 

-  ',  REAL  (GAMMA) 

=  '  , PERIODS 

=  '.POINTS 

=  '  ,  REAL  (FREE_RES/1  000) 
=  ' , REAL (FREQ/FR£E_RES) 

=  ’,REAL(Y1_INIT) 

=  '  ,REAL(Y2_INIT) 

=  ' ,  MODE 
=  ' , REAL (TOL) 

=  ’//FILENAME(1:20) 


ENDIF 

ENDIF 


IF  (.NOT.  BATCH)  CALL  PROMPT  (' P  ROCESSING  ...’,0) 

Cl-(2*SIGMA)  /RO 

C2-PO-C1 

C3-4*MU 

c4— 3*gamma 

C5-RHO*RO*RO 

C6-2*  (MODE+2)  *  (2*MODE  +  l)  *mu/c5 
C7“  (  (MODE  +  1 )  *  (MODE+2)  *SIGMA)  /  (C5*RO) 

C8-2*  (MODE+2) *MU/c5 
C9-MODE-1 

IF  (RT)  OPEN  (UNIT-1 ,  NAME -FILENAME,  STATUS-  1  NEW  ' ) 

OPEN  (UNIT=2,NAME=FILENAME(1:  INDEX  (FILENAME,  '  .  '  )  )  /  /  'DGEAR' , 

2  STATUS-  1  NEW 1 ) 

IF  (RT)  OPEN  (UNIT— 3,  NAME— FILENAME  ( 1 :  INDEX  (FILENAME,  '  .  '  )  )  // 'DRIVE' , 
2  STATUS- ' NEW ' ) 

OPEN  (UNIT— 10,  NAME— FILENAME  (1 :  INDEX  (FILENAME,  '  .  ')  )  /  /  '  RSECT  * , 

2  STATUS- • NEW • ) 

IF(NEQ.GT.2)OPEN(UNIT=ll,NAME=FILENAME(l:INDEX(FILENAME,  '.'))// 
2  '  ASECT  '  ,  STATUS-  '  NEW  '  ) 

RETURN 

END 

SUBROUTINE  ASK  (PRCMP,  RET_VAL,  DEF_VAL) 

CHARACTER*  ( *  )  PROMP,  RET_VAL,  DEF  VAL 
CHARACTER*  80  STR 
EXTERNAL  INPUT 

CALL  PROMPT  (PROMP,  0) 

NCHAR— INPUT  (STR,  80) 

IF  (NCHAR.  EQ.  0)  THEN 
RET_VAL-DEF_VAL 
ELSE 

RET_VAL=STR  ( 1  :  NCHAR) 

ENDIF 

RETURN 

END 


SUBROUTINE  ASKI  (PROMP,  RET_VAL,  DEF_VAL) 

CHARACTER*  (  * )  PRCMP 
INTEGER  RET_VAL,  DEF_VAL 
CHARACTER*80  STR 

CALL  PROMPT  (PROMP,  0) 

NCHAR-INPUT  (STR,  80) 

DO  WHILE  (INDEX  (STR,  '  .  '  )  .NE.O) 

CALL  ERRMSG( 'INVALID  VALUE,  ENTER  AN  INTEGER') 
CALL  PROMPT  (PRCMP,  0) 

NCHAR-INPUT  (STR,  80) 

END  DO 


o  n 


IF  (NCHAR.  EQ.  0)  THEN 
R£T_VAL*Dfct  _VAL 
ELSE 

DECODE  (NCHAR,  1 ,  STR)  RET_VAL 
1  FORMAT ( I ) 

ENDIF 

RETURN 

END 


SUBROUTINE  ASKR(PROMP,  RET_VAL,  DEF_VAL) 

CHARACTER  *  (  * )  P  RCMP 
REAL  RET_VAL,  DEF_VAL 
CHARACTER*  80  STR 

CALL  PROMPT  (PROMP,  0) 

NCHAR-INPUT  (STR,  80) 

DO  WHILE  (INDEX  (STR,  '  .  1  )  .  EQ.  0  .AND .  NCHAR  .NE .  0) 

CALL  ERRMSG  (  1  INVALID  VALUE,  INCLUDE  DECIMAL  POINT  ’  ) 
CALL  PROMPT  (PRCMP,  0) 

NCHAR=INPUT  (STR,  80) 

END  DO 

IF  (NCHAR .  EQ  .  0)  THEN 

ret_val*d’ef_val 

ELSE 

DECODE  (NCHAR,  1,  STR)  RET_VAL 
1  FORMAT  (G) 

ENDIF 

RETURN 

END 


SUBROUTINE  PROMPT  (STR,  NUM) 

C 

C  CALL:  CALL  PROMPT (STR, NUM) 

C  STR  ASCIZ  MESSAGE  STRING 

C  NUM  NUMBER  OF  DASHES  TO  PUT  AFTER  THE  PROMPT 

c  This  routine  will  output  a  message  on  line  22  in  inverse  screen 

FORMAT.  THE  CURSOR  WILL  REMAIN  AT  THE  END  OF  THE  MESSAGE  UPON  RETURN. 

CHARACTER*  (*)  STR 
BYTE  ESC 
INTEGER  NUM 
DATA  ESC/27/ 

TYPE  100,  ESC,  ESC,  ESC 

100  FORMAT  f’+'Al'  [  22H  '  Al  •  ( J  'Al  ’  [  7m*  $) 

DO  1*1,  LEN (STR) , 1 
TYPE  110,  STR  (I:  I) 

END  DO 

TYPE  110, ESC,  '  (  '  ,  'M' 

110  FORMAT  (’  +  'Al$) 

IF  ( %LCC  (NUM)  .  EQ  .  0 )  GOTO  200 
IF  (NUM.  LE  .  0)  GOTO  200 


n  n 


DO  120  1-1,  NUM,  1 
120  TYPE  110,  •_  ' 

CALL  POS(22,L£N(STR)  ) 

200  RETURN 

END 


SUBROUTINE  ERRMSG  (STR) 

C  CALL:  CALL  ERRMSG (STR) 

C  STR  ASCIZ  STRING  MESSAGE 

C  THIS  ROUTINE  WILL  OUTPUT  AN  ERROR  MESSAGE  ON  LINE  23  AND  WAIT  3 
C  SECONDS  BEFORE  ERASING  THE  ERROR  MESSAGE  AND  RETURNING.  THE  MESSAGE 
WILL  BE  OUTPUT  IN  INVERSE  SCREEN  FORM. 

CHARACTER*  (*)  STR 
BYTE  ESC 
DATA  ESC/27/ 

TYPE  100,  ESC,  ESC,  ESC 

100  FORMAT  C+'Al'  [23H'A1'  [J'Al  '  [7M‘ S) 

DO  1  =  1 ,  LEN ( STR) , 1 
TYPE  110,STR(I:D 
END  DO 

TYPE  110,  ESC,  *  (  ■  ,  'M' 

110  FORMAT  C+'AlS) 

CALL  WAIT 


RETURN 

END 


SUBROUTINE  HEADER  (STR) 

c 

C  CALL:  CALL  HEADER (STR) 

C  STR  ASCIZ  MESSAGE  STRING 

C  THIS  ROUTINE  WILL  CLEAR  THE  SCREEN  AND  OUTPUT  A  TITLE  IN  DOUBLE 
C  SIZE  LETTERS  ON  THE  FIRST  TWO  LINES  OF  THE  SCREEN.  THE  CURSOR  WILL 
C  BE  LEFT  ON  THE  3RD  ROW  COLUMN  1. 

C 

CHARACTER*  (*)  STR 
BYTE  ESC 
DATA  ESC/27/ 

TYPE  100,  ESC,  ESC,  ESC 

100  FORMAT  (  '  +  '  Al  '  [H 1 Al  1  [ J f Al ' #3 ' $) 

DO  1=1,  LEN  (STR)  ,  1 
TYPE  105,STR(I:I) 

105  FORMAT!  ' +  'Al$) 

END  DO 
TYPE  * 

TYPE  110,  ESC 

110  FORMAT  (  1  +  1  Al '  #4  *  $) 

DO  1=1, LEN (STR) , 1 
TYPE  105,  STR  (I :  I) 

END  DO 
TYPE  * 


o  o 
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RETURN 

end 


INTEGER  FUNCTION  INPUT (BUF,  MAXCNT) 

C 

C  CALL  NCHAR=INPUT(BUF, MAXCNT) 

C 

C  NCHAR  NUMBER  OF  CHARACTERS  ACTUALLY  INPUT. 

C  IF  NCHAR=0  THEN  NUMBER  OF  CHARACTERS  INPUT  EXCEEDS 

C  MAXCNT . 

C  BUF  STORAGE  AREA  FOR  RETURNED  CHARACTERS,  WILL  BE  PADDED 

C  WITH  TRAILING  BLANKS  UP  TO  MAXCNT. 

MAXCNT  Maximum  number  of  characters  to  accept. 

CHARACTER*  (  * )  BUF 
CHARACTER*5I2  INPUT_LINE 
INTEGER  MAXCNT,  1 ,  LINE_SI2E ,  STATUS, NCHAR 

INPUT_LINE= '  ' 

STATUS=LIB$GET_INPUT(INPUT_LINE,  ,  LIN£_SIZE) 

IF(  .NOT.  STATUS)  CALL  LIBSSIGNAL  ( %VAL  (STATUS)  ) 

BUF=INPUT_LINE  ( I :  MAXCNT) 

NCHAR=LINE_SI2E 

IF  (BUF  (1:1)  .£Q.CHAR<3)  )NCHAR=-3  ~C 

IF(BUF(1:1)  .EQ.CHAR<27)  )NCHAR=-27  !<£SC> 

IF  ( LINE_SIZE.GT. MAXCNT )NCHAR=0  ! TOO  MANY  CHARACTERS 

INPUT-NCHAR 

RETURN 
END 

REAL*  8  FUNCTION  KAPPA 
IMPLICIT  REAL*16  (A-Z) 

REAL*8  MU8,NU8,0MEGA8,SIGMA8,GAMMA8,RH08,R08 
COMMON  /MAIN/  MU8,NU8,0MEGA8,SIGMA8,GAMMA8,RH08,  R08 

! CM  !  BUBBLE  RADIUS 

1G/CM  S  (VISCOSITY  OF  WATER 

(G/CM~3  (DENSITY  OF  WATER 

(HERTZ  (ANGULAR  DRIVING  FREQ 

C  CONSTANTS 


R~QEXT  (R08) 

U-QEXT  (MU8) 
RHO-QEXT  (RH08) 
OMEGA=QEXT  (  OMEGA 8 ) 


RHO_G-0 .001204(30 

C-1.50S 

RG-8.314Q7 

M-28.964Q0 

ML-18.02Q0 

TINF-293Q0 

CV  G-20.8Q7 


!G/CM'3  (DENSITY  OF  AIR 

(CM/S  (SOUND  SPEED  IN  WATER 

(DYN/MOL  K  (GAS  CONSTANT 

!g/mol  (Molecular  weight  air 

(g/mol  (Molecular  weight  water 

(K  (Ambii  .t  temperature 

(DYN/MOL  K  (SPECIFIC  HEAT  AIR  (V) 


CP_G=2 . 91q8 

(DYN/MOL  K 

!  SPECIFIC  HEAT  AIR  (P) 

CV_L=76.0q7 

(DYN/MOL  K 

!  SPECIFIC  HEAT  WATER  (V) 

CP_L=Cv_L 

(DYN/MOL  K 

!  SPECIFIC  HEAT  WATER  (P) 

GAMMA-CP_G/CV_G 

'.UNITLESS 

K_L“5. 92 Q4 

!dyn/  (S  cm 

K) 

!  Thermal  conductivity 

K_G=2 . 5Q3 

! dyn/ (s  cm 

K) 

!  "  AIR 

k=k_l/k_g 

! UNITLESS 

CG=SQRT  (  (GAMMA*RG/M)  *TlNF) 

(CM/S 

!  Sound  speed  in  air 

DG=K_G/  (RHO_G*CP_G)  *M 

!CM~2/S 

(Therm.  Diffus.  air 

DI.=K  L/  (RHO*CP_L)  *ML 

(CM~2/S 

(Therm,  Diffus.  water 

X“R*SQRT  (2*0MEGA/DG) 

A1=SINH(X)  -SIN  (X) 

A2*SINH(X)  +SIN(X) 

A3=C0SH(X)  -cos  (X) 

DTH=3*  (GAMMA-1)  *  (  (X*A2-2*A3)  /  (X*X*A3  +  3*  (GAMMA-1)  *X*A1)  ) 
KAPPA— DBLE  (GAMMA/  (1+DTH*DTH)  /  (1t3*  (GAMMA-1)  /X*A1/A3)  ) 

RETURN 

END 

LOGICAL  FUNCTION  STEADY_STATE  (X,  Y,  NUM_POINTS_C¥CLE) 

IMPLICIT  REAL* 8  (A-Z) 

DIMENSION  Y ( 1 ) 

INTEGER  NUM_POINTS _ CYCLE,  NUM 

COMMON  /MAIN/  MU,  NU,  OMEGA,  SIGMA,  GAMMA,  RHO,  RO 
DATA  NUM/O/,  R_TOL/1.0~6/,V_TOL/0.  IDO/ 

STEADY_STATE= .  FALSE . 

IF  (NUM .  EQ .  NUM_POINTS_CYCLE*2  )  THEN 

STEADY_STATE=A8S  (  R_SECT_1  -R_SECT_2 )  .  LE .  R_TOL .  AND . 

2  abs(v_sect_1-v_sect_2)  .le.v_tol 

NUM=NUM_POINTS_CYCLE 
R_SECT_1  -  R_SECT_2 
V_SECT_1  =V_SECT_2 
ENDIF 

NUM=NUM+1 

IF  (NUM.  EQ.NUM_POINTS_CYCL£)  THEN 
R_SECT_1=*Y  (1) 

V_SECT_1=Y(2) 

WRITEdO,  *)  REAL(RO*R_SECT_l)  ,  REAL  (RO*V_SECT_l) 

ELSE  IF  (NUM .  EQ .  2  *NUM_POINTS_CYCLE )  THEN 
R_SECT_2=-Y(1) 

V_SECT_2=Y(2) 

WRITEdO,  *)  REAL(RO*R_SECT_2)  ,  REAL  ( RO»V_SECT_2  ) 

ENDIF 


RETURN 
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PROGRAM  MIENOS (INPUT, OUTPUT, SI, S2 , TAPE5= INPUT, TAPE6=OUTPUT, 

$  TAPE10=S1, TAPE11-S2) 

PARAMETER  (  MAXANG  -  2000,  MOMDIM  «  1  ) 

LOGICAL  SELECT (  8  ),  ANYANG,  PERFCT ,  PRNT (  2  ) 

INTEGER  IPOLZN,  NUMMOM 

REAL  MIMCUT,  PMOM<  0:MOMDIM,  4  ),  XMU  <  MAXANG  ) 

COMPLEX  CREFIN,  SFORW,  SBACK,  SI (  MAXANG  ),  S2 (  MAXANG  ), 

$  TFORW (  2  ),  TBACK (  2  ) 

C - 

c 

DATA  SELECT  /  8 ‘.TRUE.  /,  PRNT  /  . TRUE .,. FALSE.  / 

C 

C 

PRINT  *, 'MIE  SCATTERING' 

100  PRINT  * 

PRINT  *,  '1.  I  VS  ANGLE' 

PRINT  *,'2.  I  VS  RADIUS' 

PRINT  *, '3.  EXIT' 

PRINT  *, 'ENTER  OPTION' 

READ  *, IOPT 

IF ( IOPT . EQ . 3 ) STOP 

IF(IOPT.EQ.l) THEN 

PRINT  *, 'ENTER  RADIUS  IN  MICRONS  (REAL)' 

READ  *, RADIUS 
RADIUS=RADIUS* 1 . E-6 

PRINT  *, 'ENTER  NUMBER  OF  ANGLES  (INTEGER,  NUMANG) ' 

ACCEPT  *, NUMANG 
ELSE  IF  (IOPT. EQ. 2) THEN 

PRINT  *, 'ENTER  ANGLE  (REAL,  DEGREES)' 

READ  *, ANGLE 
NUMANG-1 
ELSE 

PRINT  *, 'ENTER  1,2  OR  3' 

GOTO  100 
ENDIF 
C 

PI  =  2.  *  ASIN(l.O) 

PERFCT  =  .FALSE. 

MIMCUT  =  l.E-6 
NUMMOM  -  1 
IPOLZN  =  -  4 
ANYANG  »  .TRUE. 

WAVELN-488.0E-9 
CREFIN=(0. 75187, 0.0) 

C 

IF  (  NUMANG . GT . MAXANG  )  STOP ' NUMANG  IS  TOO  LARGE' 

C 

IF (NUMANG. NE . 1 ) THEN 
DO  1  I  -  1,  NUMANG 

XMU  (  I  )  -  COS<  (1-1)  *  PI  /  (  NUMANG- 1  )  ) 

1  CONTINUE 

XX-2 . 0*PI*I . 33‘RADIUS/WAVELN 
PRNT (1)=. TRUE. 

CALL  MIEVO  (  XX,  CREFIN,  PERFCT,  MIMCUT,  SELECT,  ANYANG, 

S  NUMANG,  XMU,  NUMMOM,  IPOLZN,  MOMDIM,  PRNT, 

S  QEXT,  QSCA,  GQSC,  PMOM,  SFORW,  SBACK,  SI, 

S  S2 ,  TFORW,  TBACK  ) 


noooooooooo 
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ELSE 

XMU  (1)  COS  (ANGLE*  (2 . 0*PI/360  . )  ) 

PRNT ( 1 ) = .FALSE . 

DO  20  I  -  1,  1000,  1 
RADIUS=I*l.E-7 

XX=2 . 0*PI*1 . 33*RADIUS/WAVELN 

CALL  MIEVO  (  XX,  CREFIN,  PERFCT ,  MIMCUT,  SELECT.  ANYANG, 

$  NUMANG,  XMU,  NOMMOM,  IPOLZN,  MOMDIM,  PRNT, 

$  QEXT,  QSCA,  GQSC,  PMOM,  SFORW,  SHACK,  SI, 

$  S2 ,  TFORW,  TBACK  ) 

WRITE (10, 19) RADIUS, REAL (SI (1) ) **2  +  AIMAG (SI ( 1 1 ) **2 
WRITE (11, 19) RADIUS, REAL <S2 (1) ) **2+AIMAG(S2 (1) ) **2 

19  FORMAT (2G16. 8) 

20  CONTINUE 
ENDIF 

C 

TYPE  888, CHAR ( 7 ) 

888  FORMAT ('  'Al) 

STOP 

END 

SUBROUTINE  MIEVO  (  XX,  CREFIN,  PERFCT,  MIMCUT,  SELECT,  ANYANG, 

$  NUMANG,  XMU,  NMOM,  IPOLZN,  MOMDIM,  PRNT, 

$  QEXT,  QSCA,  GQSC,  PMOM,  SFORW,  SBACK,  SI, 

S  S2 ,  TFORW,  TBACK  ) 

C 

C  COMPUTES  MIE  SCATTERING  AND  EXTINCTION  EFFICIENCIES;  ASYMMETRY 
C  FACTOR;  FORWARD-  AND  BACKSCATTER  AMPLITUDE;  SCATTERING 
C  AMPLITUDES  FOR  INCIDENT  POLARIZATION  BOTH  PARALLEL  AND  PERPENDICULAR 
C  TO  THE  PLANE  OF  SCATTERING,  AS  FUNCTIONS  OF  SCATTERING  ANGLE; 

C  COEFFICIENTS  IN  THE  LEGENDRE  POLYNOMIAL  EXPANSIONS  OF  EITHER  THE 
C  UNPOLARIZED  PHASE  FUNCTION  OR  THE  POLARIZED  PHASE  MATRIX; 

C  AND  SOME  QUANTITIES  NEEDED  IN  POLARIZED  RADIATIVE  TRANSFER. 

CALLS  :  CONFRA,  SMALL1,  SMALL2 ,  TESTMI,  MIPRNT, 

LPCOEF,  ERRMSG,  WRTBAD 

INTERNAL  VARIABLES 


AN,  BN 

ANM1, 8NM1 

C  ANP 
C  BNP 
C  ANPM 
C 

C  BNPM 
C 

C  CBIGA(N) 

C 

C  CIOR 
C 

C  CIORIV 
C  COEFF 
C  CONFRA 
C 


MIE  COEFFICIENTS  LITTLE-A-SUB-N,  LITTLE-B-SUB-N 
(  REF.  1,  EQ.  16  ) 

MIE  COEFFICIENTS  LITTLE-A-SUB- (N-l) , 

LITTLE-B-SUB- (N-l) ;  USED  IN  -GQSC-  SUM 
COEFFS.  IN  S+  EXPANSION  (  REF.  2,  P.  1507  ) 

COEFFS.  IN  S-  EXPANSION  (  REF.  2,  P.  1507  ) 

COEFFS.  IN  S+  EXPANSION  (  REF.  2,  P.  1507  ) 

WHEN  MU  IS  REPLACED  BY  -  MU 
COEFFS.  IN  S-  EXPANSION  (  REF.  2,  P.  1507  ) 

WHEN  MU  IS  REPLACED  BY  -  MU 
BESSEL  FUNCTION  RATIO  CAP ITAL-A-SUB-N  (REF.  2,  EQ.  2) 
(  COMPLEX  VERSION  ) 

COMPLEX  INDEX  OF  REFRACTION  WITH  NEGATIVE 
IMAGINARY  PART  (VAN  DE  HULST  CONVENTION) 

1  /  CIOR 

(  2N  ♦  1  )  /  (  N  (  N  +  1  )  ) 

VALUE  OF  LENTZ  CONTINUED  FRACTION  FOR  -CBIGA (NTRM) -, 
USED  TO  INITIALIZE  DOWNWARD  RECURRENCE. 


oooonnnonnnononnoononnnononon 
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c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


CTMP 

F1,F2,F3 


FN 

LITA, LITB(N) 

MAXTRM 

MM 

MIM 

MRE 

MAXANG 

NANGD2 

NOABS 

NP1DN 
NTRM 
PASS1 
PIN (J) 

PINM1  (J) 

PSINM1 

PSIN 

RBIGA(N) 

REZINV 

RIORIV 

RN 

RTMP 

SAVINP 

SP(J) 

SM  ( J) 

SPS(J) 

SMS ( J) 

TAUN 

TCOEF 

TWONP1 

YESANG 

ZETNM1 

ZETN 

ZINV 


(COMPLEX)  TEMPORARY  VARIABLE 

ARITHMETIC  STATEMENT  FUNCTIONS  USED  IN  DETERMINING 
WHETHER  TO  USE  UP-  OR  DOWN-RECURRENCE  FOR  ' BIGA ' 

(  REF.  2,  EQS .  6-8  ) 

FLOATING  POINT  VERSION  OF  INDEX  IN  LOOP  PERFORMING 
MIE  SERIES  SUMMATION 

MIE  COEFFICIENTS  -AN-,  -BN-,  SAVED  IN  ARRAYS  FOR 
USE  IN  CALCULATING  LEGENDRE  MOMENTS  *PMOM* 

MAX.  POSSIBLE  NO.  OF  TERMS  IN  MIE  SERIES 
+  1  AND  -  1,  ALTERNATELY. 

MAGNITUDE  OF  IMAGINARY  REFRACTIVE  INDEX 
REAL  PART  OF  REFRACTIVE  INDEX 

MAX.  POSSIBLE  VALUE  OF  INPUT  VARIABLE  -NUMANG- 
(NUMANG+1 ) /2  (  NO.  OF  ANGLES  IN  0-90  DEG;  ANYANG=F  ) 
TRUE,  NO  ABSORPTION.  CAN  OCCUR  EITHER  BECAUSE 
PERFCT=TRUE  OR  BECAUSE  IMAG.  REFRAC.  INDEX=0. 

(  N  +  1  )  /  N 

NO.  OF  TERMS  IN  MIE  SERIES 

TRUE  ON  FIRST  ENTRY,  FALSE  THEREAFTER 

ANGULAR  FUNCTION  LITTLE-PI-SUB-N  (  REF.  2,  EQ.  3  ) 

AT  J-TH  ANGLE 

LITTLE-PI-SUB- (N-l)  (  SEE  -PIN-  )  AT  J-TH  ANGLE 

RICATTI- BESSEL  FUNCTION  PSI-SUB- (N-l )  OF  ARGUMENT  -XX- 
RICATT I -BESSEL  FUNCTION  PSI-SUB-N  OF  ARGUMENT  -XX- 
(  REF.  1,  P.  11  FF.  ) 

BESSEL  FUNCTION  RATIO  CAP ITAL-A-SUB-N  (REF.  2,  EQ.  2) 

(  REAL  VERSION,  FOR  WHEN  IMAG  REFRAC  INDEX  =  0  ) 

1  /  (  MRE  *  XX  ) 

1  /  MRE 
1  /  N 

(REAL)  TEMPORARY  VARIABLE 

INTERNAL  FILE  USED  FOR  STORING  USER  INPUT  VARIABLES 
ON  FIRST  ENTRY 

S+  FOR  J-TH  ANGLE  (  REF.  2,  P.  1507  ) 

S-  FOR  J-TH  ANGLE  (  REF.  2,  P.  1507  ) 

S  +  FOR  (NUMANG+l-J) -TH  ANGLE  (  ANYANG=FALSE  ) 

S-  FOR  (NUMANG+l-J) -TH  ANGLE  (  ANYANG=FALSE  ) 

ANGULAR  FUNCTION  LITTLE-TAU-SUB-N  (  REF.  2,  EQ.  4  ) 

AT  J-TH  ANGLE 

N  (  N+l  )  (  2N+1  )  (FOR  SUMMING  TFORW, TBACK  SERIES) 

2N  +  1 

TRUE  IF  NUMANG  .GT.  0 

RICATTI -BESSEL  FUNCTION  ZETA-SUB- (N-l )  OF  ARGUMENT 
-XX-  (  REF.  2,  EQ.  17  ) 

RICATTI -BESSEL  FUNCTION  ZETA-SUB-N  OF  ARGUMENT  -XX- 
1  /  (  CIOR  *  XX  ) 


-  I 

/  0  SPECIFICATIONS  FOR  SUBROUTINES 

MIEVO, 

MIEV1  - 

LOGICAL 

INTEGER 

ANYANG,  PERFCT,  PRNT (  *  ),  SELECT ( 
IPOLZN,  MOMDIM,  NUMANG,  NMOM 

*  ) 

REAL 

S 

GQSC,  MIMCUT,  PMOM (  0:MOMDIM,  *  ), 
XMU (  *  )  ,  XX 

QEXT, 

QSCA, 

COMPLEX 

S 

CREFIN,  SFORW,  SBACK,  SI (  *  )  ,  S2 ( 
TBACK (  *  ) 

*  )  , 

TFORW (  *  ), 
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PARAMETER  (  MAXANG 
C 
C 

PARAMETER  (  MAXTRM 
PARAMETER  (  ONETHR 
C 

CHARACTER* 120  SAVINP 

LOGICAL  DOWN,  INPERR,  NOABS,  OK,  PASS1,  YESANG 
REAL  MIM,  MRE,  MM,  NP1DN 

REAL  RBIGA (  MAXTRM  ),  PIN(  MAXANG  ),  PINM1 (  MAXANG  ) 

COMPLEX  CONFRA 

COMPLEX  AN,  BN,  ANM1 ,  BNM1,  ANP,  BNP,  ANPM,  BNPM, 

$  CIOR,  CIORIV,  CTMP ,  ZET,  ZETNM1,  ZETN,  ZINV 

COMPLEX  CBIGA (  MAXTRM  ),  LITA (  MAXTRM  ),  LITB (  MAXTRM  ), 

S  SP<  MAXANG  ),  SM<  MAXANG  ),  SPS(  MXANG2  ),  SMS (  MXANG2  ) 

EQUIVALENCE  (  CBIGA,  RBIGA  ) 

SAVE  PASS1 
C 

SQ (  CTMP  ) 

FI (  MRE  ) 

$ 

F2<  MRE  ) 

F3 <  MRE  ) 

C 

DATA  PASS1  /  .TRUE.  / 

C 

C 

C  ♦*  TEST  FOR  BAD  INPUT 

C 

II  (  NUMANG.GT. MAXANG  )  THEN 

CALL  ERRMSG (  ' MIEVO— PARAMETER  MAXANG  TOO  SMALL’,  .TRUE.  ) 
INPERR  =  .TRUE. 

END  IF 

IF  (  NUMANG.LT.O  )  CALL  WRTBAD (  'NUMANG',  INPERR  ) 

IF  (  XX.LT.O.  .OR.  XX.GT.l.E+5  )  CALL  WRTBAD (  'XX',  INPERR  ) 

IF  (  . NOT . PERFCT  .AND.  REAL (CREFIN) . LE . 0 .  ) 

S  CALL  WRTBAD (  ’CREFIN',  INPERR  ) 

IF  (  MOMDIM.LT. 1  )  CALL  WRTBAD (  'MOMDIM',  INPERR  ) 

IF  (  SELECT (7)  )  THEN 

IF  (  NMOM.LT.O  .OR.  NMOM. GT . MOMDIM  )  CALL  WRTBAD (' NMOM ', INPERR) 
IF  (  ABS(IPOLZN) .GT.4  )  CALL  WRTBAD!  ’IPOLZN’,  INPERR  ) 

END  IF 
C 

IF  (  NUMANG  .GT.  0  )  THEN 
IF  (  ANYANG  )  THEN 

DO  1  1=1,  NUMANG 

IF  (  XMU(I) .LT. -1.00001  .OR.  XMU ( I ) . GT . 1 . 0000 1  ) 

$  CALL  WRTBAD!  'XMU',  INPERR  ) 

1  CONTINUE 
ELSE 

DO  2  I  =  1,  (  NUMANG  +  1  )  /  2 

IF  (  XMU(I) .LT. -0.00001  .OR.  XMU ( I ) . GT . 1 . 0000 1  ) 

S  CALL  WRTBAD!  'XMU',  INPERR  ) 

2  CONTINUE 
END  IF 

END  IF 
C 


=  REAL!  CTMP  ) **2  +  A I MAG (  CTMP  ) **2 
=  -  8.0  +  MRE* *2  *  (  26.22  +  MRE  *  (  -  0.4474 

+  MRE* * 3  *  (  0.00204  -  0.000175  *  MRE  )  )  ) 
=  3.9  *  MRE  *  (  -  10.8  +  13.78  *  MRE  ) 

=  -  15.04  +  MRE  *  (  8.42  +  16.35  *  MRE  ) 


=  1501,  MXANG2  =  MAXANG/2  +  1  ) 

**  NOTE  --  MAXTRM  =  10100  IS  NECES- 
**  SARY  TO  DO  SOME  OF  THE  TEST  PROBS; 

=  3000) 

=  1./3.  ) 


o  o 
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IF  (  INPERR  ) 

$  CALL  ERRMSG (  • MIEVO— INPUT  ERROR ( S) .  ABORTING...',  .TRUE.  ) 


C 

C 


C 

C 


C 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


IF  (  PASS1  )  THEN 

**  SAVE  USER  INPUT  VALUES 

WRITE  (  SAVINP,  2001,  ERR=990  )  XX,  CREFIN,  MIMCUT,  PERFCT, 
S  SELECT (7) ,  ANYANG,  NMOM,  IPOLZN,  NUMANG,  XMU(l) 

**  RESET  INPUT  VALUES  FOR  TEST  CASE 

XX  -  10.0 

CREFIN  =  (  1.5,  -  0.1  ) 

PERFCT  =  .FALSE. 

MIMCUT  =0.0 
SELECT (  7  )  =  .TRUE. 

ANYANG  =  .TRUE. 

NUMANG  =  1 

XMU (  1  )  =  -  0.7660444 
NMOM  =  1 
IPOLZN  =  -  1 

END  IF 


10  IF  (  PERFCT  )  THEN 
NOABS  =  .TRUE. 

IF  (  XX  .LE.  0.1  )  THEN 

**  USE  TOTALLY-REFLECTING 
**  SMALL-PARTICLE  LIMIT 

CALL  SMALL1  (  XX.  NUMANG,  XMU,  QEXT,  QSCA,  GQSC,  SFORW, 
S  SBACK,  SI,  52 ,  TFORW,  TBACK,  LITA,  LITB  ) 

NTRM  =  2 
GO  TO  200 

END  IF 

ELSE 

CIOR  =  CREFIN 

IF  (  AIMAG (  CIOR  )  .GT.  0.0  )  CIOR  =  CONJG (  CIOR  ) 

MRE  =  REAL!  CIOR  ) 

MIM  =  -  AIMAG (  CIOR  ) 

NOABS  =  MIM  .LE.  MIMCUT 
CIORIV  =  1.0  /  CIOR 
RIORIV  =  1.0  /  MRE 

IF  (  XX  *  AMAX1 (  1.0,  CABS (CIOR)  )  .LE.  0.1  )  THEN 

**  USE  GENERAL-REFRACTIVE-INDEX 
**  SMALL-PARTICLE  LIMIT 
**  (  REF.  2,  P.  1508  ) 


CALL  SMALL2  (  XX,  CIOR,  .NOT. NOABS,  NUMANG,  XMU,  QEXT 


o  o 


QSCA,  GQSC,  SFORW ,  SBACK,  SI,  S2,  TFORW, 
TBACK,  LITA,  LITB  ) 


NTRM  =  2 
GO  TO  200 


END  IF 
END  IF 

NANGD2  =  (  NUMANG  +  1  )  /  2 
YESANG  =  NUMANG  .GT.  0 

**  ESTIMATE  NUMBER  OF  TERMS  IN  MIE  SERIES 
**  (  REF.  2,  P.  1508  ) 

IF  (  XX.LE.8.0  )  THEN 

NTRM  =  XX  +  4.  *  XX**ONETHR  +  1. 

ELSE  IF  <  XX. LT. 4200.  )  THEN 

NTRM  -  XX  +  4.05  *  XX**ONETHR  +  2. 

ELSE 

NTRM  =  XX  +  4.  *  XX**ONETHR  +  2. 

END  IF 

IF  (  NTRM+1  .GT.  MAXTRM  ) 

$  CALL  ERRMSG (  'MIEV0 — PARAMETER  MAXTRM  TOO  SMALL',  .TRUE.  ) 


IF  (  PERFCT  )  GO  TO  55 


BEGIN  COMPUTATION  OF  ' B I GA ’ 


**  DECIDE  WHETHER  ' BIGA •  CAN  BE 
**  CALCULATED  BY  OP-RECURRENCE 

IF  (  MRE.LT.1.0  )  THEN 
DOWN  «  .TRUE. 

ELSE  IF  (  YESANG  )  THEN 
DOWN  *  .TRUE. 

IF  (  MIM*XX  .LT.  F2 (  MRE  )  )  DOWN  =  .FALSE. 

ELSE 

DOWN  =  .TRUE. 

IF  (  MIM*XX  . LT.  FI (  MRE  )  )  DOWN  -  .FALSE. 

END  IF 

ZINV  -  1.0  /  (  CIOR  *  XX  ) 

REZINV  =1.0/  (  MRE  *  XX  ) 

IF  (  DOWN  )  THEN 

**  COMPUTE  INITIAL  HIGH-ORDER  'BIGA'  USING 
**  LENTZ  METHOD  (  REF.  1,  PP.  17-20  ) 

CTMP  =  CONFRA (  NTRM,  ZINV,  XX  ) 


***  DOWNWARD  RECURRENCE  FOR  'BIGA' 
***  (  REF.  1,  EQ.  22  ) 


IF  (  NOABS  )  THEN 

**  NO-ABSORPTION  CASE 

R8IGA (  NTRM  )  =  REAL (  CTMP  ) 

DO  25  N  =  NTRM,  2,-1 

RBIGA (  N-l  )  =  (N*REZINV) 

-  1.0  /  (  (N*REZINV)  +  RBIGA (  N  )  ) 


CONTINUE 
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c 

ELSE 

C 

CBIGA (  NTRM  )  =  CTMP 
DO  30  N  =  NTRM,  2,-1 
CBIGA (  N-l  )  =  (N*ZINV) 
30  CONTINUE 

C 

END  IF 


C 

ELSE 

C  ***  UPWARD  RECURRENCE  FOR  1 BIGA 1 

C  ***  (  REF.  1.  EQS .  20-21  ) 

IF  (  NOABS  )  THEN 

C  **  NO-ABSORPTION  CASE 

RTMP  =  SIN  (  MR£*XX  ) 

RBIGA (  1  )  -  -  REZINV 

$  +  RTMP  /  (  RTMP*REZINV  -  COS (  MRE*XX  )  ) 

DO  40  N  «  2,  NTRM 

RBIGA (  N  )  =  -  (  N*REZINV  ) 

$  +  1.0  /  t  (  N’REZINV  )  -  RBIGA (  N-l  )  ) 

40  CONTINUE 

C 

ELSE 

C  **  ABSORPTIVE  CASE 

C 

CTMP  =  CEXP (  -  (0 . , 2 . )  *  CIOR  *  XX  ) 

CBIGA (  1  )  =  -  ZINV  +  (l.-CTMP)  / 

$  (  ZINV  *  (l.-CTMP)  -  (0. , 1 . ) * (1 ,+CTMP)  ) 

DO  SO  N  «  2,  NTRM 

CBIGA (  N  )  =  -  (N*ZINV)  +  1.0  /  ( (N*ZINV)  -  CBIGA (  N-l  )) 
50  CONTINUE 

END  IF 
END  IF 
C 

C  -  END  OF  'BIGA'  COMPUTATION  - 

C 

c 

C  **  INITIALIZE  RICATT I -BESSEL  FUNCTIONS 

C  **  (PSI,CHI,ZETA) -SUB- (0, 1)  FOR  UPWARD 

C  **  RECURRENCE  (  REF.  1,  EQ.  19  ) 

55  XINV  =  1.0  /  XX 

PSINM1  =  SIN (  XX  ) 

CHINM1  =  COS(  XX  ) 

PSIN  =  PSINM1  *  XINV  -  CHINM1 

CHIN  »  CHINM1  *  XINV  +  PSINM1 

ZETNM1  -  CMP LX (  PSINM1,  CHINM1  ) 

ZETN  =  CMP LX (  PSIN,  CHIN  ) 

C  **  INITIALIZE  PREVIOUS  COEFFI- 

C  **  CIENTS  FOR  -GQSC-  SERIES 

ANM1  =  (  0.0,  0.0  ) 

BNM1  -  (  0.0,  0.0  ) 

C  **  INITIALIZE  ANGULAR  FUNCTION  LITTLE-PI 

C  **  AND  SUMS  FOR  S+,  S-  (  REF.  2,  P.  1507  ) 

IF  (  ANYANG  )  THEN 


DO  60  J  -  1,  NUMANG 
PINM1 (  J  )  =0.0 


**  ABSORPTIVE  CASE 

-  1.0  /  (  (N*ZINV)  +  CBIGA (  N  )  ) 
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c 


c 

c 

c 

c 


c 


c 

c 

c 

c 


c 

c 

c 


c 

c 


PIN  (  J 

) 

O 

fH 

II 

SP  (  J 

) 

-  (  0.0, 

0.0 

) 

SM  (  J 

) 

O 

O 

H 

0.0 

) 

CONTINUE 

ELSE 

DO  70  J 

= 

1,  NANGD2 

PINM1 ( 

J 

)  =  0.0 

PIN  (  J 

) 

=  1.0 

SP  (  J 

) 

=  (  0.0. 

0.0 

) 

SM  (  J 

) 

=  (  0.0, 

0.0 

) 

SPS<  J 

) 

H 

o 

o 

0.0 

) 

SMS(  J 

) 

H 

o 

o 

0.0 

) 

70  CONTINUE 
END  IF 

**  INITIALIZE  MIE  SUMS  FOR  EFFICIENCIES, 


QSCA  =0.0 
GQSC  =0.0 
SFORW 
SBACK 
TFORW (  1  ) 
TBACK (  1  ) 


(  0.,  0.  ) 

(  0.,  0.  ) 

(  0.,  0.  ) 

(  0.,  0.  ) 


ETC. 


LOOP  TO  SUM  MIE  SERIES 


MM  =  +  1.0 

DO  100  N  =  1,  NTRM 

**  COMPUTE  VARIOUS  NUMERICAL  COEFFICIENTS 

FN  =  N 

RN  =  1.0  /  FN 

NP1DN  =  1.0  +  RN 

TWONP1  =  N  +  (  N  +  1  ) 

COEFF  =  TWONP1  /  (  FN  *  (  N  +  1  )  ) 

TCOEF  =  TWONP1  *  (  FN  *  (  N  +  1  )  ) 


IF  (  PERFCT  )  THEN 


**  CALCULATE  MIE  SERIES  COEFFICIENTS 
**  TOTALLY-REFLECTING  CASE 


AN  =  (  (  B'N*XINV  )  *  PSIN  -  PSINM1  )  / 
$  (  (  FN*XINV  )  *  ZETN  -  ZETNM1  ) 

BN  =  PSIN  /  ZETN 


ELSE  IF  (  NOABS  )  THEN 

**  NO-ABSORPTION  CASE 


AN 

=  i 

[  (  RIORIV*RBIGA (N)  + 

(  FN*XINV  )  ) 

*  PSIN  - 

PSINM1 

s 

/  i 

(  (  RIORIV*RBIGA(N)  + 

(  FN*XINV  )  ) 

*  ZETN  - 

ZETNM1 

BN 

=  i 

[  (  MRE  *  RBIGA(N)  + 

(  FN*XINV  )  ) 

*  PSIN  - 

PSINM1 

s 

ELSE 

/  l 

(  (  MRE  *  RBIGA(N)  + 

(  FN*XINV  )  ) 

*  ZETN  - 

ZETNM1 

**  ABSORPTIVE 

CASE 

AN 

=  ( 

(  CIORIV  *  CBIGA(N)  + 

(  FN*XINV  )  ) 

*  PSIN 

-  PSINM1 

$ 

/( 

(  CIORIV  *  CBIGA(N)  + 

(  FN*XINV  )  ) 

■  *  ZETN 

-  ZETNM1 

BN 

=  ( 

(  CIOR  *  CBIGA(N)  + 

(  FN*XINV  )  ) 

*  PSIN 

-  PSINM1 

s 

/  ( 

(  CIOR  *  CBIGA(N)  + 

(  FN*XINV  )  ) 

*  ZETN 

-  ZETNM1 

o  o 
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c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


QSCA  - 

END  IF 

LITA (  N  ) 
LITBI  N  ) 


QSCA  +  TW0NP1  *  (  SQ(  AN  )  +  SQ (  BN  )  ) 


»*  SAVE  MIE  COEFFICIENTS  FOR  *PMOM*  CALCULN. 

=  AN 
-  BN 

**  INCREMENT  MIE  SUMS  FOR  NON-ANGLE- 
**  DEPENDENT  QUANTITIES 


$ 

$ 


SFORW  =  SFORW  + 
TFORW (  1  )  -  TFORW (  1  )  + 
SBACK  -  SBACK  + 
TBACK (  1  )  =  TBACK (  1  )  + 
GQSC  =  GQSC  +  (  FN  -  RN  ) 

+  COEFF  *  REAL (  AN 


TWONP1  *  (  AN  +  BN  ) 

TCOEF  *  (  AN  -  BN  ) 

(  MM  *  TWONP1  )  *  (  AN  -  BN  ) 
(  MM  *  TCOEF  )  *  (  AN  +  BN  > 

*  REAM  ANM1  *  CON  JG  (  AN  ) 

+  BNM1  *  CONJG (  BN  )  ) 

*  CONJG (  BN  )  ) 


IF  (  YESANG  )  THEN 

**  PUT  MIE  COEFFICIENTS  IN  FORM 
**  NEEDED  FOR  COMPUTING  S+,  S- 
**  (  REF.  2,  P.  1507  ) 

ANP  -  COEFF  *  (  AN  +  BN  ) 

BNP  =  COEFF  *  (  AN  -  BN  ) 

**  INCREMENT  MIE  SUMS  FOR  S+,  S- 
**  WHILE  UPWARD  RECURSING 
**  ANGULAR  FUNCTIONS  LITTLE  PI 
**  AND  LITTLE  TAU 

IF  (  ANYANG  )  THEN 

**  ARBITRARY  ANGLES 


80 

C 

C 


C 


90 


**  VECTORIZABLE 

LOOP 

DO  80  J  =  1,  NUMANG 

RTMP  =  (  XMU  (  J  ) 

*  P IN (  J  ) 

)  - 

PINM1 (  J  ) 

TAUN  -  FN  *  RTMP 

-  PINM1 (  J 

) 

SP<  J  )  -  SP<  J  ) 

+  ANP  *  ( 

P IN  ( 

J  )  +  TAUN 

) 

SM (  J  )  -  SM(  J  ) 

+  BNP  *  ( 

PIN  ( 

J  )  -  TAUN 

) 

PINM1 (  J  )  =  PIN ( 

J  ) 

PIN (  J  )  =  (  XMU ( 

J  )  *  PIN ( 

J  ) 

)  +  NP1DN  * 

RTMP 

CONTINUE 


ELSE 


**  ANGLES  SYMMETRIC  ABOUT  90  DEGREES 


ANPM  -  MM  *  ANP 
BNPM  »  MM  *  BNP 

**  VECTORIZABLE  LOOP 


90 

J 

=  1,  NANGD2 

RTMP 

= 

(  XMU (  J  ) 

* 

PIN  (  J 

) 

) 

-  PINMI ( 

J 

) 

TAUN 

= 

FN  *  RTMP 

- 

PINMI ( 

J 

) 

SP  ( 

J 

)  -  SP  (  J 

) 

+ 

ANP 

* 

< 

P IN (  J  ) 

+ 

TAUN  ) 

SMS  ( 

J 

)  =  SMS (  J 

) 

+ 

BNPM 

* 

( 

P IN (  J  ) 

+ 

TAUN  ) 

SM  ( 

J 

)  -  SM  (  J 

) 

+ 

BNP 

* 

( 

P IN (  J  ) 

- 

TAUN  ) 

SPS< 

J 

)  =  SPS(  J 

) 

+ 

ANPM 

* 

( 

PIN (  J  ) 

- 

TAUN  ) 

PINM1 ( 

J  )  =  PIN ( 

J 

) 

PIN  ( 

J 

>  -  <  XMU< 

J 

) 

*  PIN  ( 

J 

)  )  +  NP1DN 

1  *  RTMP 

CONTINUE 


C 


END  IF 
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END  IF 
C 
C 

MM 

ANM1  - 
BNM1  - 
C 
C 
C 

ZET 

ZETNM1 
ZETN 
PSINM1 
PSIN 

100  CONTINUE 
C 

C - END  LOOP  TO  SUM  MIE  SERIES 

C 

c 

QEXT  =  2.  /  XX**2  *  REAM  SFORW  ) 
IF  (  PERFCT  .OR.  NOABS  )  THEN 
QSCA  =  QEXT 
ELSE 

QSCA  -  2.  /  XX* *2  *  QSCA 
END  IF 
C 

GQSC  =  4 .  /  XX**2  *  GQSC 
SFORW  =  0.5  *  SFORW 
SBACK  =  0.5  *  SBACK 


TFORW ( 

2  ) 

-  0.5 

*  1 

SFORW 

+ 

0.25 

★ 

TFORW { 

1 

TFORW ( 

1  ) 

-  0.5 

*  1 

SFORW 

0.25 

★ 

TFORW ( 

1 

TBACK ( 

2  ] 

i  =  0.5 

*  1 

SBACK 

+ 

0.25 

★ 

TBACK ( 

1 

TBACK ( 

1  ) 

=  0.5 

*  ( 

-  SBACK 

+ 

0.25 

★ 

TBACK ( 

1 

C 

IF  (  YESANG  )  THEN 


C 

*  * 

RECOVER  SCATTERING  AMPLITUDES 

c 

★  * 

FROM 

S+,  S-  (  REF.  1. 

EQ.  11 

IF  (  ANYANG 

) 

THEN 

c 

DO  110 

J 

=  1,  NUMANG 

**  VECTORIZABLE 

LOOP 

Sl(  J 

) 

=  0.5  *  (  SP< 

J  ) 

+  SMI  J  )  ) 

S2  (  J 

) 

=  0.5  *  (  SP( 

J  ) 

-  SMI  J  )  ) 

110 

CONTINUE 

c 

ELSE 

c 

DO  120 

J 

=  1,  NANGD2 

**  VECTORIZABLE 

LOOP 

SI  (  J 

) 

=  0.5  *  (  SP ( 

J  ) 

+  SMI  J  )  ) 

S2  (  J 

) 

=  0.5  *  (  SP< 

J  ) 

-  SMI  J  )  ) 

120 

CONTINUE 

c 

DO  130 

J 

=  1,  NANGD2 

**  VECTORIZABLE 

LOOP 

Sl(  NUMANG+1  -  J  )  =  0.5  *  I  SPS(  J  )  +  SMS (  J  )  ) 
S2(  NUMANG+1  -  J  )  -  0.5  *  (  SPS(  J  )  -  SMS (  J  )  ) 
130  CONTINUE 

END  IF 
C 


**  UPDATE  RELEVANT  QUANTITIES  FOR  NEXT 
**  PASS  THROUGH  LOOP 

-  MM 
AN 
BN 

**  UPWARD  RECURRENCE  FOR  RICATTI- BESSEL 
**  FUNCTIONS  (  REF.  1,  EQ.  17  ) 

=  (  TWONP1  *  XINV  )  *  ZETN  -  ZETNM1 
=  ZETN 
=  ZET 
-  PSIN 

=  REAM  ZETN  ) 


o  o 
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END  IF 

C  **  CALCULATE  LEGENDRE  MOMENTS 

200  IF  (  SELECT (7)  ) 

$  CALL  LPCOEF  (  NTRM,  NMOM,  IPOLZN,  MOMDIM,  LITA,  LITB,  PMOM  ) 

C 
C 

IF  (  PASS I  )  THEN 

C  **  COMPARE  TEST  CASE  RESULTS  WITH 

**  CORRECT  ANSWERS  AND  ABORT  IF  BAD 

CALL  TESTMI  (  QEXT,  QSCA,  GQSC,  SFORW,  SBACK,  SI,  S2, 

$  TFORW,  TBACK,  PMOM,  MOMDIM,  OK  ) 

IF  (  .NOT.  OK  )  THEN 
PRNT(l)  =  .TRUE. 

PRNT (2)  -  .TRUE. 

CALL  MIPRNT (  PRNT,  XX,  PERFCT,  CREFIN,  NUMANG,  XMU,  QEXT, 

S  QSCA,  GQSC,  SELECT  O) ,  NMOM,  IPOLZN,  MOMDIM, 

$  PMOM,  SFORW,  SBACK,  TFORW,  TBACK,  SI,  S2  ) 

CALL  ERRMSG (  'MIEVO  --  SELF-TEST  FAILED1,  .TRUE.  ) 

END  IF 

C  **  RESTORE  USER  INPUT  VALUES 

C 

READ  (  SAVINP,  2001,  ERR=990  )  XX,  CREFIN,  MIMCUT,  PERFCT, 

$  SELECT (7) ,  ANYANG,  NMOM,  IPOLZN,  NUMANG,  XMU(l) 

PASS1  =  .FALSE. 

GO  TO  10 
END  IF 
C 

IF  (  PRNT ( 1 )  .OR.  PRNT ( 2 )  ) 

$  CALL  MIPRNT (  PRNT,  XX,  PERFCT,  CREFIN,  NUMANG,  XMU,  QEXT, 

S  QSCA.  GQSC.  SELECT ( 7) ,  NMOM,  IPOLZN,  MOMDIM, 

S  PMOM,  SFORW,  SBACK,  TFORW,  TBACK,  SI,  S2  ) 

C 

RETURN 

C 

990  CALL  ERRMSG (  'MIEVO— I/O  ERROR  IN  SELF-TEST',  .TRUE.  ) 

C 

2001  FORMAT (  IP,  4E16.8,  3L2,  315,  E16.8  ) 

END 

SUBROUTINE  LPCOEF  <  NTRM,  NMOM,  IPOLZN,  MOMDIM,  A,  B,  PMOM  ) 

C 

C  CALCULATE  LEGENDRE  POLYNOMIAL  EXPANSION  COEFFICIENTS  (ALSO 

C  CALLED  MOMENTS)  FOR  PHASE  QUANTITIES  (  REF.  5  FORMULATION  ) 

C 

C  ***  NOTE  ***  EQS.  2-5  ARE  IN  ERROR  IN  DAVE,  APPL.  OPT.  9, 

C  1888  (1970) .  EQ.  2  REFERS  TO  Ml,  NOT  M2;  EQ.  3  REFERS  TO 

C  M2,  NOT  Ml.  IN  EQS.  4  AND  5,  THE  SUBSCRIPTS  ON  THE  SECOND 

C  TERM  IN  SQUARE  BRACKETS  SHOULD  BE  INTERCHANGED. 

C 

C  ***  NOTE  ***  THIS  SUBROUTINE  WORKS  CORRECTLY  IN  THE  SPECIAL 

C  CASE  NTRM  -  2  (NO.  TERMS  IN  MIE  SERIES  =  2)  BUT  CALLS 

C  SUBROUTINE  *LPC02T*  TO  DO  THAT  CASE  BOTH  FOR  SPEED  AND 

C  BECAUSE  NTRM  -  2,  BEING  THE  SMALL-PARTICLE  LIMIT,  MAY  BE 

C  CALLED  FREQUENTLY. 

C 

C  ***  NOTE  ***  SOME  IMPROVEMENT  IN  SPEED  IS  OBTAINABLE  IF 

C  MOMENTS  FOR  ALL  FOUR  PHASE  QUANTITIES  ARE  DESIRED  (NELEM=4 ) , 


o  o 


237 


C  BECAUSE  THE  SERIES  BEING  SUMMED  FOR  THE  THIRD  PHASE  QUANTITY 

C  IS  THE  REAL  PART  OF  A  COMPLEX  SERIES,  AND  THE  FOURTH  PHASE 

C  QUANTITY  IS  THE  IMAGINARY  PART  OF  THAT  SERIES.  HOWEVER,  THIS 

C  WOULD  INVOLVE  SUMMING  THAT  COMPLEX  SERIES.  THE  EXTRA  ARITH- 

C  METIC  FOR  SO  DOING  WILL  BE  WASTED  IN  MOST  CASES,  SINCE  MOST 

C  USERS  ARE  NOT  INTERESTED  IN  THE  FOURTH  PHASE  QUANTITY,  WHICH 

C  IS  RELATED  TO  CIRCULAR  POLARIZATION. 

C 

INTEGER  IPOLZN,  MOMDIM,  NMOM,  NTRM 
REAL  PMOM (  0: MOMDIM,  *  ) 

COMPLEX  A (  *  ) ,  B (  *  ) 

C 

C  **  SPECIFICATION  OF  LOCAL  VARIABLES 

C 

C  AM (M)  NUMERICAL  COEFFICIENTS  A-SUB-M-SUPER-L 

C  IN  DAVE,  EQS .  1-15,  AS  SIMPLIFIED  IN  REF.  5. 

C 

BI(I)  NUMERICAL  COEFFICIENTS  B-SUB-I-SUPER-L 

IN  DAVE,  EQS.  1-15,  AS  SIMPLIFIED  IN  REF.  5. 

C 

C  BIDEL(I)  1/2  BI(I)  TIMES  FACTOR  CAPITAL-DEL  IN  DAVE 

C 

C  CM, DM ( )  ARRAYS  C  AND  D  IN  DAVE,  EQS.  16-17  (MUELLER  FORM), 

C  CALCULATED  USING  RECURRENCE  DERIVED  IN  REF.  5 

C 

C  CS.DSO  ARRAYS  C  AND  D  IN  REF.  4,  EQS.  A5-A6  (SEKERA  FORM), 

C  '  CALCULATED  USING  RECURRENCE  DERIVED  IN  REF.  5 

C 

C  C,D<)  tITHER  -CM. DM-  OR  -CS.DS-,  DEPENDING  ON  -IPOLZN- 

C 

C  EVENL  TRUE  FOR  EVEN-NUMBERED  MOMENTS;  FALSE  OTHERWISE 

C 

C  IDEL  1  +  LITTLE-DEL  IN  DAVE 

C 

C  MAXTRM  MAX,  NO.  OF  TERMS  IN  MIE  SERIES 

C 

C  MAXMOM  MAX.  NO.  OF  NON-ZERO  MOMENTS 

C 

C  NELEM  NO.  OF  DISTINCT  PHASE  MATRIX  ELEMENTS 

C  FOR  WHICH  TO  GET  MOMENTS 

C 

C  NUMMOM  NUMBER  OF  NON-ZERO  MOMENTS 

C 

C  RECIP(K)  1  /  K 

C 

PARAMETER  (  MAXTRM  =3002,  MAXMOM  =  2*MAXTRM,  MXMOM2  =  MAXMOM/2, 

$  MAXRCP  =  4  *MAXTRM  +■  2  ) 

REAL  AM (  0 :MAXTRM  ),  BI<  0:MXMOM2  ),  BIDEL (  0:MXMOM2  ), 

S  RECIP (  MAXRCP  ) 

COMPLEX  CM (  MAXTRM  ) ,  DM (  MAXTRM  ) ,  CS (  MAXTRM  ) ,  DS (  MAXTRM  ) , 
S  C (  MAXTRM  ) ,  D (  MAXTRM  ) 

EQUIVALENCE  (  C,  CM  ) ,  (  D,  DM  ) 

LOGICAL  PASS1,  EVENL 
SAVE  PASS1,  RECIP 
DATA  PASS1  /  .TRUE.  / 

C 

C 
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c 


c 

c 


c 


c 

c 


c 


c 

c 


c 

c 


c 


IF  (  PASS1  )  THEN 

DO  1  K  -  1,  MAXRCP 
RECIP (  K  )  =  1.0  /  K 
1  CONTINUE 

PASS1  -  .FALSE. 


END  IF 

IF  (  NTRM.EQ.l  )  THEN 

CALL  LPCOIT  (  NMOM,  IPOLZN,  MOMDIM,  A,  B,  PMOM  ) 
RETURN 

ELSE  IF  (  NTRM.EQ.2  )  THEN 

CALL  LPC02T  (  NMOM,  IPOLZN,  MOMDIM,  A,  B,  PMOM  ) 
RETURN 


END 

IF 

IF 

<  NTRM+2  .GT. 

MAXTRM  ) 

$ 

CALL  ERRMSG ( 

;  1 LPCOEF- 

-PARAMETER  MAXTRM  TOO  SMALL1, 

.TRUE.  ) 

**  CALCULATE  MUELLER  C, 

D  ARRAYS 

CM  ( 

NTRM+2  )  =  ( 

0.,  0.  ) 

DM  ( 

NTRM+2  )  *  ( 

0.,  0.  ) 

CM  ( 

NTRM+1  )  =  ( 

1.  -  RECIP (  NTRM+1  )  )  *  B<  NTRM 

) 

DM  ( 

NTRM+1  )  -  ( 

1.  -  RECIP (  NTRM+1  )  )  *  A(  NTRM 

) 

CM  ( 

NTRM  )  -  (  RECIP (NTRM) 

+  RECIP (NTRM+1)  )  *  A( 

NTRM  ] 

i 

$ 

+  ( 

1.  -  RECIP (NTRM)  )  *  B(  NTRM-1  ) 

DM  ( 

NTRM  )  =  (  RECIP (NTRM) 

+  RECIP (NTRM+1)  )  *  B( 

NTRM  ] 

i 

$ 

+  ( 

1.  -  RECIP (NTRM)  )  *  A(  NTRM-1  ) 

DO 

10  K  -  NTRM- 

■1,  2,  -1 

CM (  K  )  *  CM ( 

K+2  )  -  ( 

1.  +  RECIP (K+l)  )  *  B( 

K+l  ) 

S' 

+  ( 

RECIP (K)  +  RECIP (K+l)  ) 

*  A( 

K  ) 

$ 

+  ( 

1.  -  RECIP  (K)  )  *  B(  K- 

•1  ) 

DM (  K  )  “  DM ( 

K+2  )  -  ( 

1.  +  RECIP (K+l)  )  *  A ( 

K+l  ) 

$ 

+  ( 

RECIP (K)  +  RECIP (K+l)  ) 

*  B  ( 

K  ) 

$ 

+  ( 

1.  -  RECIP  (K)  )  *A(K- 

•1  ) 

10  CONTINUE 

CM  ( 

1  )  =  CM(  3  ) 

+  1.5  * 

(  A  <  1  )  -  B  <  2  )  ) 

DM  ( 

1  )  ”  DM (  3  ) 

+  1.5  * 

<  B(  1  )  -  A (  2  )  ) 

IF 

(  IPOLZN. GE.O 

)  THEN 

DO  20  K  -  1, 

NTRM  +  2 

C  (  K  )  -  ( 

2*K  -  1  ) 

*  CM  <  K  ) 

D(  K  )  =  ( 

2* K  -  1  ) 

*  DM (  K  ) 

20 

CONTINUE 

ELSE 


**  COMPUTE  SEKERA  C  AND  D  ARRAYS 


CS( 

NTRM+2  : 

H 

O 

O 

DS< 

NTRM+2  : 

o 

o 

CS( 

NTRM+1  : 

II 

o 

o 

DS< 

NTRM+1  ] 

o 

o 

II 

DO 

30  K  = 

NTRM,  1,  -1 

CS (  K  )  =  CS(  K+2  )  +  (  2 *K  +  1  )  *  (  CM (  K+l  )  -  B (  K  )  ) 


non  on 
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DS(  K  )  -  DS (  K+2  )  +  (  2 *K  +  1  )  *  (  DM (  K+l  )  -  A (  K  )  ) 
30  CONTINUE 

C 

DO  40  K  «  1,  NTRM  +  2 

C (  K  )  «  <  2*K  -  1  )  *  CS(  K  ) 

D  (  K  )  =  <  2* K  -  1  )  *  DS (  K  ) 

40  CONTINUE 

C 

END  IF 
C 

NELEM  =  IABS  (  IPOLZN  ) 

DO  50  J  -  1,  MAXO (  1,  NELEM  ) 

DO  50  L  =  0,  NMOM 
PMOM (  L,J  )  =  0.0 
50  CONTINUE 
C 

IF (  IPOLZN. LT.O  )  NUMMOM  =  MIN0 {  NMOM,  2*NTRM  -  2  ) 

IF (  IPOLZN. GE.O  )  NUMMOM  =  MIN0 (  NMOM,  2*NTRM  ) 

IF  (  NUMMOM  .GT.  MAXMOM  ) 

$  CALL  ERRMSG (  • LPCOEF — PARAMETER  MAXTRM  TOO  SMALL',  .TRUE.  ) 


C 


C 

c 


c 


c 


c 


**  LOOP  OVER  MOMENTS 

DO  500  L  =  0,  NUMMOM 
LD2  =  L  /  2 

EVENL  -  MOD (  L,2  )  .EQ.  0 

**  CALCULATE  NUMERICAL  COEFFICIENTS 
**  A-SUB-M  AND  B-SUB-I  IN  DAVE 
**  DOUBLE-SUMS  FOR  MOMENTS 

IF (  L.EQ.O  )  THEN 
IDEL  “  1 

DO  60  M  =  0,  NTRM 

AM (  M  )  »  2.0  *  RECIP (  2*M  +  1  ) 

60  CONTINUE 

BI (  0  )  -  1.0 

ELSE  IF (  EVENL  )  THEN 

IDEL  =  1 

DO  70  M  =  LD2,  NTRM 

AM<  M  >  »  <  1.  +  RECIP(  2 *M-L+1  )  )  *  AM (  M  ) 

70  CONTINUE 

DO  75  I  =  0,  LD2-1 

BI (  I  )  -  (  1.  -  RECIP  (  L-2*I  )  )  *  BI (  I  ) 

75  CONTINUE 

BI<  LD2  )  -  (  2.  -  RECIP (  L  )  )  *  BI {  LD2-1  ) 

ELSE 

IDEL  =  2 

DO  80  M  =  LD2,  NTRM 

AM (  M  )  -  (  1.  -  RECIP (  2*M+L+2  )  )  *  AM (  M  ) 

80  CONTINUE 

DO  85  I  -  0,  LD2 

BI(  I  >  -  <  1.  -  RECIP (  L+2*I+1  )  )  *  Bit  I  ) 

85  CONTINUE 
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c 

c 

c 


90 


C 

C 

c 

c 

c 


$ 

s 

100 


110 


c 

c 


$ 

150 

160 

C 

C 

C 


200 

210 


END  IF 

**  ESTABLISH  UPPER  LIMITS  FOR  SUMS 
**  AND  INCORPORATE  FACTOR  CAPITAL- 
*»  DEL  INTO  B-SUB-I 

MMAX  -  NTRM  -  IDEL 

IF {  IPOLZN.GE.O  )  MMAX  «  MMAX  +  1 
IMAX  -  MIN0  (  LD2 ,  MMAX  -  LD2  ) 

IF (  IMAX. LT. 0  )  GO  TO  600 
DO  90  I  -  0,  IMAX 

BIDEL (  I  !  -Bit  I  ) 

CONTINUE 

IF (  EVENL  )  BIDEL (  0  )  «  0.5  *  BIDEL (  0  ) 

**  PERFORM  DOUBLE  SUMS  JUST  FOR 
**  PHASE  QUANTITIES  DESIRED  BY  USER 

IF (  NELEM.EQ.O  )  THEN 
DO  110  1=0,  IMAX 

**  VECTORIZABLE  LOOP  (CRAY) 

SUM  =0.0 

DO  100  M  =  LD2,  MMAX  -  I 
SUM  =  SUM  +  AM (  M  )  * 

(  REAL (  C (M-I+ 1 )  *  CON JG (  C(M+I+IDEL)  )  ) 

+  REAL (  D (M- 1+ 1 )  *  CONJG (  DIM+I+IDEL)  )  )  ) 

CONTINUE 

PMOM (  L, 1  )  =  PMOM (  L,  1  )  +  BIDEL (  I  )  *  SUM 
CONTINUE 

PMOM (  L, 1  )  =  0.5  *  PMOM (  L, 1  ) 

GO  TO  500 
END  IF 

DO  160  1=0,  IMAX 

**  VECTORIZABLE  LOOP  (CRAY) 

SUM  =0.0 

DO  150  M  =  LD2,  MMAX  -  I 
SUM  =  SUM  +  AM (  M  )  * 

REAL (  C(M-I+1)  *  CONJG (  C(M+I+IDEL)  )  ) 

CONTINUE 

PMOM (  L, 1  )  =  PMOM (  L, 1  )  +  BIDEL (  I  )  *  SUM 
CONTINUE 

IF (  NELEM.GT. 1  )  THEN 
DO  210  1=0,  IMAX 

**  VECTORIZABLE  LOOP  (CRAY) 

SUM  =0.0 

DO  200  M  =  LD2,  MMAX  -  I 
SUM  =  SUM  +  AM(  M  )  * 

REAL!  D (M-I+l )  *  CON JG (  DIM+I+IDEL)  )  ) 

CONTINUE 

PMOM (  L, 2  )  =  PMOM (  L, 2  )  +  BIDEL (  I  )  *  SUM 
CONTINUE 
END  IF 


C 


IF (  NELEM.GT. 2  )  THEN 


C 


DO  310  I 


0,  IMAX 


**  VECTORIZABLE  LOOP  (CRAY) 


S 

S 

300 

310 


C 

C 

C 


s 

$ 

400 


410 


SUM  =0.0 

DO  300  M  =  LD2,  MMAX  -  I 
SUM  =  SUM  +  AM (  M  )  * 

(  REAL!  CIM-I+l)  *  CONJG (  D(M+I+IDEL)  )  ) 

+  REAL (  C (M+I+IDEL)  *  CONJG  (  D(M-I  +  1)  )  )  ) 

CONTINUE 

PMOM (  L. 3  )  -  PMOM (  L, 3  )  +  BIDEL (  I  )  *  SUM 
CONTINUE 

PMOM (  L, 3  )  =  0.5  *  PMOM (  L, 3  ) 

END  IF 

IF (  NELEM.GT. 3  )  THEN 
DO  410  1=0,  IMAX 

**  VECTORIZABLE  LOOP  (CRAY) 

SUM  =0.0 

DO  400  M  =  LD2,  MMAX  -  I 
SUM  =  SUM  +  AM (  M  )  * 

(  AIMAG (  C(M-I+1)  *  CONJG (  DIM+I+IDEL)  )  ) 

+  AIMAG (  C (M+I+IDEL)  *  CONJG (  D(M-I+1)  )  )  ) 

CONTINUE 

PMOM (  L, 4  )  =  PMOM (  L, 4  )  +  BIDEL (  I  )  *  SUM 
CONTINUE 

PMOM (  L.  4  )  =  -  0.5  *  PMOM  (  L,  4  ) 

END  IF 


C 

500  CONTINUE 


C 

C 

600  RETURN 
END 

SUBROUTINE  LPCOIT  (  NMOM,  IPOLZN,  MOMDIM,  A,  B,  PMOM  ) 

C 

C  CALCULATE  LEGENDRE  POLYNOMIAL  EXPANSION  COEFFICIENTS  (ALSO 

C  CALLED  MOMENTS)  FOR  PHASE  QUANTITIES  IN  SPECIAL  CASE  WHERE 

C  NO.  TERMS  IN  MIE  SERIES  =  1 

C 

INTEGER  IPOLZN,  MOMDIM,  NMOM 
REAL  PMOM (  0: MOMDIM,  *  ) 

COMPLEX  A (  *  ) ,  B (  *  ) ,  CTMP,  A1B1C 

SQ(  CTMP  )  =  REAM  CTMP  )  **2  +  AIMAG (  CTMP  ) **2 


NELEM  =  IABS  (  IPOLZN  ) 

DO  10  J  -  1,  MAX0 (  1,  NELEM  ) 
DO  10  L  =  0,  NMOM 
PMOM  (  L,  J  )  =  0.0 
10  CONTINUE 

A1SQ  =  SQ(  A(l)  ) 

B1SQ  =  SQ<  B ( 1 )  ) 

A1B1C  =  A ( 1 )  *  CONJG (  B ( 1 )  ) 

IF (  IPOLZN. LT.O  )  THEN 


PMOM (  L, 1  )  =  2.25  *  B1SQ 


IF (  NELEM.GT . 1  )  PMOM  <  L,2  )  =  2.25  *  A1SQ 

IF (  NELEM.GT. 2  )  PMOM (  L,  3  )  =  2.25  *  REAL (  A1B1C  ) 

IF (  NELEM.GT. 3  )  PMOM (  L,  4  )  =  2.25  *AIMAG (  A1B1C  ) 


ELSE 

NUMMOM  =  MINO (  NMOM,  2  ) 

**  LOOP  OVER  MOMENTS 

DO  100  L  =  0,  NUMMOM 


IF  <  NELEM.EQ.O 
IF (  L.EQ.O 
IF (  L.EQ.l 
IF (  L.EQ.2 
GO  TO  100 

END  IF 

)  THEN 
)  PMOM ( 

)  PMOM ( 
)  PMOM  ( 

L,  1  )  =  1.5 
L.  1  )  =  1.5 
L,  1  )  =  0.1 

*  (  A1SQ  +  B1SQ  ) 

*  REAM  A1B1C  ) 

*  PMOM (  L, 1  ) 

IF (  L.EQ.O  ) 

PMOM (  L, 

1  )  =  2.25  * 

(  A1SQ  +  B1SQ  /  3 

IF (  L.EQ.l  ) 

PMOM  (  L, 

1  )  = 

1.5  *  REAL (  A1B1C  ) 

IF (  L.EQ.2  ) 

PMOM  (  L, 

1  )  = 

0.3  *  B1SQ 

IF (  NELEM.GT. 1 

)  THEN 

IF  <  L.EQ.O 

)  PMOM ( 

L,  2  ) 

=  2.25  *  (  B1SQ  +  A1SQ 

IF (  L.EQ.l 

)  PMOM ( 

L,  2  ) 

=  PMOM (  1,1  ) 

if;  l.eq.2 

)  PMOM ( 

L,  2  ) 

=  0.3  *  A1SQ 

END  IF 

IF (  NELEM.GT. 2 

)  THEN 

IF (  L.EQ.O 

)  PMOM ( 

L,  3  ) 

=  3.0  *  REAL (  A1B1C  ) 

IF (  L.EQ.l 

)  PMOM  ( 

L,  3  ) 

-  0.75  *  (  A1SQ  +  B1SQ 

IF (  L.EQ.2 

)  PMOM ( 

L,  3  ) 

=  0.1  *  PMOM (  L, 3  ) 

END  IF 

IF (  NELEM.GT. 3 

)  THEN 

IF (  L.EQ.O 

)  PMOM ( 

L,  4  ) 

=  -  1.5  *  AIMAG (  A1B1C 

IF (  L.EQ.l 

)  PMOM ( 

L,  4  ) 

=  0.0 

IF (  L.EQ.2 

)  PMOM ( 

L,  4  ) 

=  -  0.2  *  PMOM  (  L,  4  ) 

END  IF 

100  CONTINUE 

END  IF 

RETURN 

END 

SUBROUTINE  LPC02T  (  NMOM,  IPOLZN,  MOMDIM,  A,  B,  PMOM  ) 

CALCULATE  LEGENDRE  POLYNOMIAL  EXPANSION  COEFFICIENTS  (ALSO 
CALLED  MOMENTS)  FOR  PHASE  QUANTITIES  IN  SPECIAL  CASE  WHERE 
NO.  TERMS  IN  MIE  SERIES  =  2 


INTEGER  IPOLZN,  MOMDIM,  NMOM 
REAL  PMOM (  0 :MOMDIM,  *  ) 

COMPLEX  A (  *  )  ,  B (  *  ) 

COMPLEX  A2C,  B2C,  CTMP,  CA,  CAC,  CAT 
5  S2S1C (  0:4  ) ,  T1T2C (  0:2  ) 

SQ(  CTMP  )  =  REAL (  CTMP  )**2  +  A I MAG (  CTMP 


CB,  CBC ,  CBT,  CG,  CH, 
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c 

c 

NELEM  =  IABS  (  IPOLZN  ) 

DO  10  J  =  1,  MAXO (  1,  NELEM  ) 

DO  10  L  -  0,  NMOM 
PMOM (  L,J  )  =0.0 
10  CONTINUE 
C 

CA  =  3.  *  A(l)  -  5.  *  B (2) 

CAT=  3.  *  B ( 1 )  -  5.  *  A (2) 

CAC  =  CONJG (  CA  ) 

A2SQ  »  SQ (  A (2 )  ) 

B2SQ  =  SQ (  B ( 2 )  ) 

A2C  =  CONJG (  A (2)  ) 

B2C  =  CONJG (  B  (2 )  ) 

C 

IF (  IPOLZN. LT.O  )  THEN 

C  **  LOOP  OVER  SEKERA  MOMENTS 

NUMMOM  =  MIN0 (  NMOM,  2  ) 

DO  50  L  =  0,  NUMMOM 
C 

IF (  L.EQ.O  )  THEN 

PMOM (  L, 1  )  =  0.25  *  (  SQ (CAT)  +  (100. / 3 . )  *  B2SQ  ) 

ELSE  IF (  L.EQ.l  )  THEN 

PMOM (  L, 1  )  =  ( 5 . / 3 . )  *  REAL (  CAT  *  B2C  ) 

ELSE 

PMOM (  L, 1  )  =  (10.  / 3 . )  *  B2SQ 
END  IF 
C 

IF (  NELEM. GT.l  )  THEN 
IF (  L.EQ.O  )  THEN 

PMOM (  L,  2  )  =  0.25  *  (  SQ (CA)  +  (100. /3.)  *  A2SQ  ) 
ELSE  IF (  L.EQ.l  )  THEN 

PMOM (  L, 2  )  =  ( 5  .  / 3 . )  *  REAL (  CA  *  A2C  ) 

ELSE 

PMOM (  L, 2  )  =  (10. /3.)  *  A2SQ 
END  IF 
END  IF 
C 

IF (  NELEM. GT. 2  )  THEN 
IF (  L.EQ.O  )  THEN 

T1T2C (L)  =  0.25  *  (  CAT*CAC  +  (100./3 . ) *B  ( 2 ) *  A2C  ) 
PMOM (  L, 3  )  =  REAL (  T1T2C(L)  ) 

ELSE  IF (  L.EQ.l  )  THEN 

T1T2C ( L)  =  ( 5 . / 6 . )  *  (  B ( 2 ) *CAC  +  CAT*A2C  ) 

PMOM (  L, 3  )  =  REAL(  T1T2CIL)  ) 

ELSE 

T1T2C ( L)  =  (10. /3. I  *  B (2 )  *  A2C 
PMOM (  L, 3  )  =  REAL (  T1T2C ( L)  ) 

END  IF 
END  IF 
C 

IF (  NELEM. GT. 3  )  PMOM (  L, A  )  =  -  AIMAG (  T1T2C(L)  ) 

C 

50  CONTINUE 
C 


ELSE 
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CB  =  3.  *  B(l)  +  5.  *  A  (2 ) 

CBT-  3.  *  A ( 1 )  +  5.  *  B(2) 

CBC  -  CONJG (  CB  ) 

CG  =  (1./3.)  *  (  CBC'CBT  +  10. *(  CAC*A (2)  +■  B2C*CAT)  ) 

CH  =  2 . * (  CBC* A ( 2 )  +  B2C*CBT  ) 

C 

C  **  LOOP  OVER  MUELLER  MOMENTS 

NOMMOM  =  MINO (  NMOM,  4  ) 

DO  100  L  -  0,  NUMMOM 
IF (  L.EQ.O  )  THEN 

PMOM (  L, 1  )  =0.25  *  SQ(CA)  +  (1./12.)  *  SQ(CB) 

S  +  ( 5 . / 3 . )  *  REAL (CA*B2C)  +  5.*B2SQ 

ELSE  IF (  L.EQ.l  )  THEN 

PMOM (  L, 1  )  =  REAL (  CB  *  (  (l./6.)*CAC  +  B2C  )  ) 

ELSE  IF (  L.EQ.2  )  THEN 

PMOM (  L,1  )  =  (1./30.)  *  SQ(CB)  +  (20.  /7.)  *  B2SQ 
$  +  <2./3.)  *  REAL (  CA  *  B2C  ) 

ELSE  IF (  L.EQ.3  )  THEN 

PMOM (  L, 1  )  =  <2./7.)  *  REAL (  CB  *  B2C  ) 

ELSE 

PMOM (  L, 1  )  =  (40. /63.)  *  B2SQ 
END  IF 

C 

IF (  NELEM.NE.l  )  THEN 
IF (  L.EQ.O  )  THEN 

PMOM (  L, 2  )  =  0 . 25*SQ (CAT)  *  (1-/12.)  *  SQ(CBT) 

$  +  <5./3.)  *  REAL (CAT*A2C)  +  5.*A2SQ 

ELSE  IF (  L.EQ.l  )  THEN 

PMOM (  L, 2  )  =  REAL (  CBT  *  ( ( 1 . /6 . ) *CONJG (CAT)  *  A2C)  ) 
ELSE  IF (  L.EQ.2  )  THEN 

PMOM (  L, 2  )  =  (1./30.)  *  SQ (CBT)  +  (20. /7.)  *  A2SQ 
S  +  <2./3.)  *  REAL!  CAT  *  A2C  ) 

ELSE  IF (  L.EQ.3  )  THEN 

PMOM (  L, 2  )  =  (2./7.)  *  REAL (  CBT  *  A2C  ) 

ELSE 

PMOM (  L,2  )  =  (40. / 63 . )  *  A2SQ 
END  IF 
END  IF 
C 

IF (  NELEM.EQ.O  )  THEN 

PMOM (  L, 1  )  =0.5  *  (  PMOM ( L, 1 )  +  PMOM (L, 2)  ) 

GO  TO  100 
END  IF 
C 

IF (  NELEM.GT.2  )  THEN 
IF (  L.EQ.O  )  THEN 

S2S1C ( L)  =  0.25  *  (  CAC*CAT  +  CG  +  20.*B2C*A(2)  ) 

PMOM (  L,  3  )  =  REAM  S2S1C(L)  ) 

ELSE  IF  <  L.EQ.l  )  THEN 

S2S1C ( L)  =  (1./12.)  *  (  CAC*CBT  +  CBC*CAT  +  3.*CH  ) 
PMOM (  L,3  )  =  REAL (  S2S1C(L)  ) 

ELSE  IF  <  L.EQ.2  )  THEN 

S2S1C ( L)  =0.1*  (  CG  ♦  (200. /7.I  *  B2C  *  A(2)  ) 

PMOM (  L,  3  )  =  REAM  S2S1C(L)  ) 

ELSE  IF  <  L.EQ.3  )  THEN 
S2S1C ( L)  =  CH  /  14. 


ooooooooono 
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PMOM (  L, 3  )  -  REAL!  S2S1C ( L)  ) 

ELSE 

S2S1C (L)  =  (40. /63.)  *  B2C  *  A ( 2 ) 

PMOM (  L,  3  )  =  REAL (  S2S1C(L)  ) 

END  IF 
END  IF 
C 

IF (  NELEM.GT. 3  )  PMOM (  L, 4  )  =  AIMAG (  S2S1C ( L)  ) 

C 

100  CONTINUE 
C 

END  IF 
C 

RETURN 

END 

COMPLEX  FUNCTION  CONFRA (  N,  ZINV,  XX  ) 

C 

C  COMPUTE  BESSEL  FUNCTION  RATIO  CAPITAL-A-SUB-N  FROM  ITS 

C  CONTINUED  FRACTION  USING  LENTZ  METHOD  (  REF.  1,  PP .  17-20  ) 

C 

C  ZINV  -  RECIPROCAL  OF  ARGUMENT  OF  CAPITAL-A 

C 

C  INTERNAL  VARIABLES 


CAK  TERM  IN  CONTINUED  FRACTION  EXPANSION  OF  CAPITAL-A 

(  REF.  1,  EQ.  25  ) 

CAPT  FACTOR  USED  IN  LENTZ  ITERATION  FOR  CAPITAL-A 

(  REF.  1.  EQ.  27  ) 

CDENOM  DENOMINATOR  IN  -CAPT-  (  REF.  1.  EQ.  28B  ) 

CNUMER  NUMERATOR  IN  -CAPT-  (  REF.  1,  EQ.  28A  ) 

CDTD  PRODUCT  OF  TWO  SUCCESSIVE  DENOMINATORS  OF  -CAPT- 

FACTORS  (  REF.  1,  EQ.  34C  ) 

CNTN  PRODUCT  OF  TWO  SUCCESSIVE  NUMERATORS  OF  -CAPT- 
C  FACTORS  (  REF.  1,  EQ.  34B  ) 

C  EPS1  ILL-CONDITIONING  CRITERION 

C  EPS2  CONVERGENCE  CRITERION 

C  KK  SUBSCRIPT  K  OF  -CAK-  (  REF.  1,  EQ.  25B  ) 

C  KOUNT  ITERATION  COUNTER  (  USED  ONLY  TO  PREVENT  RUNAWAY  ) 

C  MAXIT  MAX.  ALLOWED  NO.  OF  ITERATIONS 

C  MM  +1  AND  -  1,  ALTERNATELY 

C 

INTEGER  N 
REAL  XX 

COMPLEX  ZINV 

COMPLEX  CAK,  CAPT,  CDENOM,  CDTD,  CNUMER,  CNTN 
DATA  EPS1  /  l.E  -  2  /,  EPS2  /  l.E  -  8  / 

DATA  MAXIT  /  10000  / 

C 

C  ***  REF.  1,  EQS .  25A,  27 


CONFRA 

= 

(  N  +  1  )  *  ZINV 

MM 

= 

-  1 

KK 

= 

2  *  N  +  3 

CAK 

= 

(  MM  *  KK  )  *  ZINV 

CDENOM 

= 

CAK 

CNUMER 

= 

CDENOM  +  1.0  /  CONFRA 

KOUNT 

* 

1 
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c 


c 

c 


c 


c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 

c 

c 


c 

c 


c 

c 


20  KOUNT  -  KOUNT  +  1 

IF  (  KOUNT. GT.MAXIT  ) 

S  CALL  ERRMSG (  ’CONFRA — ITERATION  FAILED  TO  CONVERGES',  .TRUE.) 

***  REF.  2,  EQ.  25B 

MM  =  -  MM 

KK  -  KK  +  2 

CAK  =  (  MM  *  KK  )  *  ZINV 

***  REF.  2,  EQ.  32 

IF  (  CABS (  CNUMER/CAK  ).LE.EPS1 

S  .OR.  CABS (  CDENOM/CAK  J.LE.EPS1  )  THEN 

**  ILL-CONDITIONED  CASE  —  STRIDE 
**  TWO  TERMS  INSTEAD  OF  ONE 

***  REF.  2,  EQS .  34 

CNTN  =  CAK  *  CNUMER  +  1.0 

CDTD  =  CAK  *  CDENOM  +  1.0 

CONFRA  =  (  CNTN  /  CDTD  )  *  CONFRA 

***  REF.  2,  EQ.  25B 

MM  =  -  MM 

KK  =  KK  +  2 

CAK  =  (  MM  *  KK  )  *  ZINV 

***  REF.  2,  EQS.  35 

CNUMER  -  CAK  +  CNUMER  /  CNTN 

CDENOM  -  CAK  +  CDENOM  /  CDTD 

KOUNT  =  KOUNT  +  1 
GO  TO  20 

ELSE 

**  WELL-CONDITIONED  CASE 

***  REF.  2,  EQS.  26,  27 

CAPT  =  CNUMER  /  CDENOM 

CONFRA  =  CAPT  *  CONFRA 

**  CHECK  FOR  CONVERGENCE 
**  (  REF.  2,  EQ.  31  ) 

IF  (  ABS (  REAL  (CAPT)  -  1.0  I.GE.EPS2 

S  .OR.  ABS (  AIMAG (CAPT)  )  .GE.EPS2  )  THEN 

***  REF.  2,  EQS.  30A-B 

CNUMER  =  CAK  +  1.0  /  CNUMER 
CDENOM  =  CAK  +  1.0  /  CDENOM 
GO  TO  20 
END  IF 
END  IF 

RETURN 

END 

SUBROUTINE 
S 
$ 

$ 


MIPRNT (  PRNT,  XX,  PERFCT,  CREFIN,  NUMANG,  XMU, 
QEXT,  QSCA,  GQSC,  SELECT,  NMOM,  IPOLZN, 
MOMDIM,  PMOM,  SFORW,  SBACK,  TFORW, 
TBACK,  SI,  S2  ) 


o  o 
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C  PRINT  SCATTERING  QUANTITIES  OF  A  SINGLE  PARTICLE 

C 


LOGICAL 

PERFCT, 

PRNT (  *  ),  SELECT 

INTEGER 

IPOLZN, 

MOMDIM,  NMOM, 

NUMANG 

REAL 

GQSC,  PMOM (  0 :MOMDIM, 

*  ),  QEXT, 

QSCA,  XX,  XMU (  * 

COMPLEX 

CREFIN, 

SFORW,  SBACK, 

TFORW (  *  ) 

,  TBACK (  *  ) , 

$ 

Sl(  *  ) 

,  S2(  *  ) 

C 

C 

C  IF  (  PERFCT  )  WRITE  (  *,1001  )  XX 

C  IF  (  .NOT. PERFCT  )  WRITE  (  *,1002  )  CREFIN,  XX 

C 

IF  (  PRNTU)  .AND.  NUMANG.GT.O  )  THEN 
C 

C  WRITE  (  *,1010  ) 

DO  10  I  -  1,  NUMANG 

FI 1  =  REAL (  S1(I)  )  **2  +  AIMAG (  SI ( I )  ) **2 

FI2  =  REAM  S2  ( I)  )  **2  +  AIMAG  (  S2(I)  )  **2 

C  WRITE  (  *,1011  )  I,  XMU(I),  SKI),  S2(I),  SI  ( I)  *CONJG  (S2  (I )  )  , 

C  $  FI 1 ,  FI2,  0.5* (FI1+FI2) ,  (FI2-FI 1 ) / ( FI2 +FI 1 ) 

WRITEUO,  1111)  ACOS(XMUd)  1  *57.29578,  FI1 
WRITE  (11,  1111)  ACOS(XMUd)  )  *57  .29578,  FI2 
1111  FORMAT (2G16.8) 

10  CONTINUE 
C 

.END  IF 


IF  (  PRNT (2 ) 


THEN 


WRITE  (  *,1020  )  0.0,  SFORW,  TFORW(l),  TFORW (2) , 

180.,  SBACK,  TBACKd),  TBACKI2) 
WRITE  (  *,1022  )  QEXT,  QSCA,  QEXT-QSCA,  QEXT-GQSC 


IF  (  SELECT  ) 

THEN 

IF  (  IPOLZN. EQ.O  )  THEN 

NPQUAN 

=  1 

WRITE 

(  *,1024  ) 

PHASE  FCN 

' 

ELSE  IF  ( 

IPOLZN. GT.O  ) 

THEN 

NPQUAN 

-  IPOLZN 

WRITE 

!  *,1024  ) 

Ml 

1  f 

/ 

M2 

$ 

ELSE 

1 

S21 

1  1 

D21 

NPQUAN 

=  -  IPOLZN 

WRITE  i 

(  *,1024  ) 

R1 

1  1 

R2 

S 

• 

R3 

1  1 

R4 

END  IF 


20 


FNORM  =  4.  /  (  XX**2  *  QSCA  ) 

DO  20  M  =  0,  NMOM 

WRITE  (  *,1026  )  M,  (  FNORM*PMOM (M, NP) ,  NP  =  1,  NPQUAN  ) 
CONTINUE 
END  IF 


END  IF 


RETURN 


n  o 
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c 

C  1001  FORMAT (  //,  •  PERFECTLY  CONDUCTING  CASE,  SIZE  PARAMETER  -', 

C  $  IP,  Ell. 4  ) 

C  1002  FORMAT (  //, •  REFRACTIVE  INDEX:  REAL  '.  IP, Ell. 4,  •  IMAG  •,  Ell. 4, 
C  S  ',  SIZE  PARAMETER  =’,  Ell. 4  ) 

C  1010  FORMAT  (  /,  '  COS  (ANGLE)  - SI -  - S2  ' , 

C  $  . -  - Sl*CONJG(S2) -  I1=S1**2 ' , 

C  $  ’  I2«S2**2  (11+12) /2  DEG  POLZN'  ) 

C  1011  FORMAT (  14,  F10.6,  IP,  10E11.3  ) 

1020  FORMAT (  /,'  ANGLE', 9X,  ' S-SUB-1 • , 17X,  'T-SUB-1',  17X,  ■T-SUB-2', 

$  /,  (0P,F7.2,  IP, 6E12 . 3)  ) 

1022  FORMAT (  /, •  EFFICIENCY  FACTORS,  EXTINCTION:',  IP, Ell.  4, 

S  '  SCATTERING:*,  Ell. 4,'  ABSORPTION:',  Ell. 4, 

$  '  RAD.  PRESSURE:',  El 1.4  ) 

1024  FORMAT!  ’  NORMALIZED  MOMENTS  OF  :',  4A  ) 

1026  FORMAT!  '  MOMENT  NO.',  14,  4X,  1P,4E13.4  ) 

END 

SUBROUTINE  SMALL1  (  XX,  NUMANG,  XMU,  QEXT,  QSCA,  GQSC,  SFORW, 

$  SBACK,  SI,  S2 ,  TFORW,  TBACK,  A,  B  ) 

C 

SMALL-PARTICLE  LIMIT  OF  MIE  QUANTITIES  IN  TOTALLY  REFLECTING 
LIMIT  (  MIE  SERIES  TRUNCATED  AFTER  2  TERMS  ) 

C 

C  A, B  FIRST  TWO  MIE  COEFFICIENTS,  WITH  NUMERATOR  AND 

C  DENOMINATOR  EXPANDED  IN  POKERS  OF  -XX-  (  A  FACTOR 

C  OF  XX* *3  IS  MISSING  BUT  IS  RESTORED  BEFORE  RETURN 

C  TO  CALLING  PROGRAM  )  (  REF.  2,  P.  1508  ) 

C 

INTEGER  NUMANG 

REAL  GQSC,  QEXT,  QSCA,  XX,  XMU (  *  ) 

COMPLEX  A (  2  ) ,  B (  2  ) ,  SFORW,  SBACK,  SI (  *  ),  S2 (  *  ), 

S  TFORW (  *  ) ,  TBACK (  *  ) 

C 

PARAMETER  (  TWOTHR  -  2./3.,  FIVTHR  =  5./3.,  FIVNIN  «  5./9.  ) 
COMPLEX  CTMP 

SQ (  CTMP  )  =  REAL (  CTMP  ) **2  +  A IMAG (  CTMP  ) **2 
C 
C 


A< 

$ 

1  ) 

=  CMP LX  < 
/  CMP LX  ( 

0., 
1 . 

TWOTHR  *  (  1. 
-  0.5  *  XX**2, 

-  0.2  *  XX**2  )  ) 
TWOTHR  *  XX**3  ) 

B< 

$ 

1  ) 

-  CMP LX  ( 
/  CMP LX  ( 

0., 
1 . 

-  (  1.  -  0.1 
+  0.5  *  XX**2, 

*  XX**2  )  /  3.  ) 

-  XX**3  /  3.  ) 

A( 

2  ) 

=  CMP LX  ( 

0., 

XX* *2  /  30. 

) 

B  ( 

2  ) 

=  CMP LX  ( 

0., 

-  XX**2  /  45. 

) 

QSCA  = 
S 

6.  *  XX** 

4  * 

(  SQ(  A  ( 1)  )  + 
+  FIVTHR  *  ( 

SQ!  B ( 1 )  ) 

SQ!  A (2)  )  +  SQ!  B(2) 

QEXT  =*  QSCA 

GQSC  =  6.  *  XX* *4  *  REAL (  A ( 1 )  *  CON JG (  A { 2 )  +  B ( 1 )  ) 

$  +  (  B ( 1 )  +  FIVNIN  *  A (2 )  )  *  CONJG (  B (2 )  )  ) 

C 

RTMP  =  1.5  *  XX**3 

SFORW  =  RTMP  *  (  A ( 1 )  +  B(l)  +  FIVTHR  *  <  A(2>  +B(2)  )  ) 

SBACK  =  RTMP  *  (  A ( 1 )  -  B ( 1 )  -  FIVTHR  *  (  A ( 2 )  -  B ( 2 )  )  ) 

TFORW!  1  )  =  RTMP  *  (  B ( 1 )  +  FIVTHR  *  (  2 . *B ( 2 )  -  A ( 2 )  )  ) 
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c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 


TFORW | 

2  ) 

-  RTMP  *  I 

All) 

+ 

FIVTHR 

*  I  2  .  *  A  ( 2 )  -  B  (2)  )  ) 

TBACK ( 

1  ) 

-  RTMP  *  I 

Bll) 

- 

FIVTHR 

*  I  2 .  *B  (2)  +  A  (2)  )  ) 

TBACK I 

2  ) 

-  RTMP  *  I 

All) 

FIVTHR 

*  I  2 . *A  (2 )  +  B (2)  )  ) 

DO  10 

J 

«  1,  NUMANG 

SI  I 

J  ) 

=  RTMP  *  I 

All) 

+ 

Bll)  * 

XMU ( J)  +  FIVTHR  * 

I  A (2 ) 

*  XMU I J) 

+  B  (2) 

*  (  2 . *XMU ( J) **2  -  1. 

)  ) 

S2  I 

J  ) 

=  RTMP  *  I 

B(l) 

+ 

All)  * 

XMU ( J)  +  FIVTHR  * 

I  B 1 2 ) 

*  XMU I J) 

*  A (2) 

*  (  2 . *XMU ( J) **2  -  1. 

)  ) 

10  CONTINUE 


**  RECOVER  ACTUAL  MIE  COEFFICIENTS 


All)  =  XX**3  *  A(  1  ) 
A(  2  )  -  XX**3  *  A(  2  ) 
B I  1  )  =  XX**3  *  B(  1  ) 
B (  2  )  =  XX**3  *  B(  2  ) 


RETURN 

END 

SUBROUTINE  SMALL2  (  XX,  CIOR,  CALCQE,  NUMANG,  XMU,  QEXT,  QSCA, 
$  GQSC,  SFORW,  SBACK,  SI,  S2,  TFORW,  TBACK, 

$  A,  B  ) 


SMALL-PARTICLE  LIMIT  OF  MIE  QUANTITIES  FOR  GENERAL  REFRACTIVE 
INDEX  (  MIE  SERIES  TRUNCATED  AFTER  2  TERMS  ) 

A, B  FIRST  TWO  MIE  COEFFICIENTS,  WITH  NUMERATOR  AND 

DENOMINATOR  EXPANDED  IN  POWERS  OF  -XX-  (  A  FACTOR 
OF  XX* *3  IS  MISSING  BUT  IS  RESTORED  BEFORE  RETURN 
TO  CALLING  PROGRAM  )  (  REF.  2,  P.  1508  ) 

CIORSQ  SQUARE  OF  REFRACTIVE  INDEX 


LOGICAL 

INTEGER 

REAL 

COMPLEX 

S 


CALCQE 

NUMANG 

GQSC,  QEXT,  QSCA,  XX,  XMU  I  *  ) 

A (  2  ) ,  B (  2  ) ,  CIOR,  SFORW,  SBACK,  Sl( 
TFORW (  *  ),  TBACK (  *  ) 


PARAMETER  (  TWOTHR  =  2./3.,  FIVTHR  =  5./3.  ) 
COMPLEX  CTMP,  CIORSQ 

SQ (  CTMP  )  =  REAL!  CTMP  ) **2  +  AIMAGI  CTMP  ) **2 


S2  (  *  )  , 


CIORSQ  =  CIOR**2 

CTMP  =  CMPLXI  0.,  TWOTHR  )  *  (  CIORSQ  -  1.0  ) 

All)  -  CTMP  *  I  1.0  -  0.1  *  XX* *2  +  (CIORSQ/350 .  +  1 . /280 . ) *XX* * 4 ) 
$  /  I  CIORSQ  +  2.0  +  I  1.0  -  0.7  *  CIORSQ  )  *  XX**2 

$  -  I  CIORSQ* *2/175.  -  0.275  *  CIORSQ  +  0.25  )  *  XX**4 

$  +  XX**3  *  CTMP  *  (  1.0  -  0.1  *  XX**2  )  ) 


Bll) 

-  (XX**2/30. )  *  CTMP  *  I 

1.0 

+  (CIORSQ/35. 

-  1./14.)  *XX*  *2 

$ 

/  I  1.0  -  I  CIORSQ/15 . 

-  1. 

/ 6 .  )  *  XX* *2 

) 

A  (2) 

=  I  0.1  *  XX* *2  )  *  CTMP 

*  I 

1.0  -  XX**2  / 

14.  ) 

S 

/  I  2.  *  CIORSQ  +  3.  - 

I  CIORSQ/7 .  -  0.5 

)  *  XX* *2  ) 

C 


QSCA  =  6. 


XX**4 


(  SQ  (All)  )  +  SQ(BID)  +  FIVTHR  *  SQ  I A  1 2 )  )  ) 


o  o 


GQSC  - 

6.  *  XX**4  * 

REAL  ( 

Ad)  *  CONJG  (  A  (2)  +  B(l)  )  ) 

QEXT  - 

QSCA 

IF  (  CALCQE  )  QEXT  ° 

=  6.  * 

XX 

*  REAL {  Ad)  t 

•  B(l)  +  FIVTHR  *  A  (2)  ) 

RTMP  - 

1.5  *  XX* *3 

SFORW 

=  RTMP  * 

(  Ad) 

+ 

Bd)  +  FIVTHR 

*  A  (2)  ) 

SBACK 

=  RTMP  * 

(  A  ( 1 ) 

- 

Bd)  -  FIVTHR 

*  A (2)  ) 

TFORW ( 

1  )  “  RTMP  * 

(  B  ( 1 ) 

- 

FIVTHR  *  A (2) 

) 

TFORW ( 

2  )  -  RTMP  * 

(  A(l) 

+ 

2.  *  FIVTHR  * 

A  (2 )  > 

TBACK ( 

1  )  -  TFORW ( 

1  ) 

TBACK ( 

2  )  =  RTMP  * 

(  Ad) 

- 

2.  *  FIVTHR  * 

A 12)  ) 

DO  10 

J  =  1,  NUMANG 

SI  ( 

J  )  =  RTMP  * 

(  Ad) 

+ 

(  B(l)  +  FIVTHR  *  A (2)  )  *  XMU(J)  ) 

S2  ( 

J  )  =  RTMP  * 

(  Bd) 

+ 

Ad)  *  XMU(J) 

+  FIVTHR  *  A (2) 

$ 

*  ( 

2. 

*  XMU(J) **2  - 

1.  )  ) 

10  CONTINUE 

**  RECOVER 

ACTUAL  MIE  COEFFICIENTS 

A  (  1  ) 

=  XX**3  *  A ( 

1  ) 

A  (  2  ) 

-  XX* *3  *  A ( 

2  ) 

B<  1  ) 

-  XX**3  *  B ( 

1  ) 

B  (  2  ) 

u 

o 

o 

RETURN 

END 

SUBROUTINE  TESTMI 

<  QEXT, 

QSCA,  GQSC,  SFORW.  SBACK,  SI,  S2, 

S  TFORW,  TBACK,  PMOM,  MOMDIM,  OK  ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


COMPARE  MIE  CODE  TEST  CASE  RESULTS  WITH  CORRECT  ANSWERS 
AND  RETURN  OK=*FALSE  IF  EVEN  ONE  RESULT  IS  INACCURATE. 

THE  TEST  CASE  IS  :  MIE  SIZE  PARAMETER  =  10 

REFRACTIVE  INDEX  -  1.5  -  0.1  I 
SCATTERING  ANGLE  =  140  DEGREES 
1  SEKERA  MOMENT 

RESULTS  FOR  THIS  CASE  MAY  BE  FOUND  AMONG  THE  TEST  CASES 
AT  THE  END  OF  REFERENCE  (1) . 

***  NOTE  ***  WHEN  RUNNING  ON  SOME  COMPUTERS,  ESP.  IN  SINGLE 
PRECISION,  THE  'ACCUR'  CRITERION  BELOW  MAY  HAVE  TO  BE  RELAXED. 
HOWEVER,  IF  ’ACCUR'  MUST  BE  SET  LARGER  THAN  10**-4  IN  ORDER 
TO  PASS  THESE  TESTS,  YOUR  COMPUTER  IS  PROBABLY  NOT  ACCURATE 
ENOUGH  TO  DO  NON-TRIVIAL  MIE  COMPUTATIONS. 

REAL  QEXT,  QSCA,  GQSC,  PMOM (  0:MOMDIM,  *  ) 

COMPLEX  SFORW,  SBACK,  SI <  *  ),  S2 (  *  ),  TFORW (  *  ),  TBACK  (  *  ) 
LOGICAL  OK,  WRONG 

PARAMETER  (  MAXMOM  =  1  ) 

REAL  ACCUR,  TESTQE,  TESTQS,  TESTGQ,  TESTPM (  0: MAXMOM  ) 

COMPLEX  TESTSF,  TESTSB,  TESTS1,  TESTS2,  TESTTF (  2  ),  TESTTB  <  2  ) 
DATA  TESTQE  /  2.459791  /,  TESTQS  /  1.235144  /, 

S  TESTGQ  /  1.139235  /,  TESTSF  /  (  61.49476,  -3.177994  )  /, 

TESTS?  /  '  1.493434,  0.2963657  )  /, 

TESTS1  /  (  -0.1548380,  -1.128972)  /, 

TESTS2  /  (  0.05669755,  0.5425681)  /, 

TESTTF  /  (  12.95238,  -136.6436  ),  (  48.54238,  133.4656  )  /, 


S 

S 

s 
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$  TESTTB  /  (  41.88414,  -15.57833  ),  (  43.37758,  -15.28196  )/, 

$  TESTPM  /  227.1975,  183.6898  / 

DATA  ACCOR  /  l.E-4  / 

C  DATA  ACCOR  /  l.E-6  / 

WRONG (  CALC,  EXACT  )  =•  ABS (  (CALC  -  EXACT)  /  EXACT  )  .GT.  ACCOR 
C 
C 

OK  -  .TROE. 


IF 

(  WRONG ( 

QEXT, TESTQE  ) 

)  CALL 

TSTBAD! 

' QEXT ' , 

-99, 

OK 

IF 

(  WRONG! 

QSCA, TESTQS  ) 

)  CALL 

TSTBAD! 

■QSCA* , 

-99, 

OK 

IF 

(  WRONG ( 

GQSC, TESTGQ  ) 

)  CALL 

TSTBAD ( 

' GQSC ' , 

-99, 

OK 

IF 

(  WRONG! 

REAL (SFORW) , 

REAL (TESTSF)  )  , 

■  OR. 

$  WRONG (  AIMAG (SFORW) ,  AIMAG (TESTSF)  )  ) 

$  CALL  TSTBAD (  'SFORW',  -99,  OK  ) 

C 

IF  (  WRONG (  REAL (SBACK) ,  REAL (TESTSB)  )  .OR. 

$  WRONG (  AIMAG (SBACK) ,  AIMAG (TESTSB)  )  ) 

S  CALL  TSTBAD!  'SBACK',  -99,  OK  ) 

C 

IF  (  WRONG!  REAL (SI (1) ) ,  REAL (TESTS1 )  )  .OR. 

$  WRONG (  AIMAG (SI (1) ) ,  AIMAG (TESTS1)  )  ) 

S  CALL  TSTBAD (  'SI',  1,  OK  ) 

C 

IF  (  WRONG (  REAL (S2 ( 1 ) ) ,  REAL (TESTS2)  )  .OR. 

$  WRONG (  AIMAG <S2 (1) ) ,  AIMAG (TESTS2 )  )  ) 

S  CALL  TSTBAD (  ' S2 ' ,  1,  OK  ) 

C 

DO  20  N  *■  1,  2 

IF  (  WRONG!  REAL ( TFORW ( N ) ) ,  REAL (TESTTF (N) )  )  .OR. 

S  WRONG (  AIMAG (TFORW (N) ) ,  AIMAG (TESTTF (N) )  )  ) 

$  CALL  TSTBAD (  'TFORW',  N,  OK  ) 

IF  (  WRONG (  REAL (TBACK (N) ) ,  REAL (TESTTB (N ) )  )  .OR. 

$  WRONG!  AIMAG (TBACK (N) ) ,  AIMAG (TESTTB (N) )  )  ) 

S  CALL  TSTBAD!  'TBACK',  N,  OK  ) 

20  CONTINUE 

DO  30  M  =  0,  MAXMOM 

IF  (  WRONG (  PMOM (M, 1) ,  TESTPM (M)  )  ) 

$  CALL  TSTBAD (  'PMOM',  M,  OK  ) 

30  CONTINUE 

RETURN 

C 

END 

COMPLEX  FUNCTION  CSUM  (  N,  CX,  ISKIP  ) 

C  FORTRAN  EQUIVALENT  OF  BLAS  SUMMING  ROUTINE  FOR  COMPLEX  NUMBERS 

C  WITH  A  SKIP  DISTANCE  OF  UNITY 

COMPLEX  CX(  *  ) 

CSUM  =  (  0.,  0.  ) 

DO  1  I  =  1,  N 

CSUM  =  CSUM  +  CX(  I  ) 

1  CONTINUE 
RETURN 


o  o 
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END 

SUBROUTINE  ERRMSG (  MESSAG,  FATAL  ) 

C 

C  PRINT  OUT  AN  ERROR  MESSAGE  AND  ABORT  IF  ERROR  IS  FATAL 

C 

LOGICAL  FATAL 

CHARACTER* ( * )  MESSAG 
INTEGER  MAXMSG,  NUMMSG 

SAVE  MAXMSG,  NUMMSG 

DATA  NUMMSG  /  0  /,  MAXMSG  /  50  / 

C 

C 

NUMMSG  =»  NUMMSG  +  1 
IF  (  NUMMSG . GT . MAXMSG  )  THEN 
WRITE  (  *,99  ) 

STOP 
END  IF 
C 

IF  <  FATAL  )  THEN 

WRITE  (  *,100  )  MESSAG 
STOP 
ELSE 

WRITE  (  *,101  )  MESSAG 
RETURN 
ENDIF 
C 

99  FORMAT  (  ///,'  >»»»  TOO  MANY  ERRORS  —  ABORTING  ««<<’,///  ) 

100  FORMAT (  /,'  *******  ERROR  >>>>>>  ' ,  A  ) 

101  FORMAT (  /,'  *******  WARNING  >>>>>>  \  A  ) 

END 

SUBROUTINE  WRTBAD  (  VARNAM,  ERFLAG  > 

WRITE  NAMES  OF  ERRONEOUS  VARIABLES 
C 

C  INPUT  :  VARNAM  =  NAME  OF  ERRONEOUS  VARIABLE  TO  BE  WRITTEN 

C  (  CHARACTER,  LENGTH  8  ) 

C 

C  OUTPUT  :  ERFLAG  =  LOGICAL  FLAG,  SET  TRUE  BY  THIS  ROUTINE 

c - 

CHARACTER* <*)  VARNAM 

LOGICAL  ERFLAG 

INTEGER  MAXMSG,  NUMMSG 

SAVE  NUMMSG,  MAXMSG 

DATA  NUMMSG  /  0  /,  MAXMSG  /  50  / 

C 

C 

NUMMSG  -  NUMMSG  +■  1 
WRITE  (  *,  10  )  VARNAM 
ERFLAG  =  .TRUE. 

IF  (  NUMMSG. EQ. MAXMSG  ) 

S  CALL  ERRMSG  (  'TOO  MANY  INPUT  ERRORS.  ABORTING ...$' ,  .TRUE.  ) 
RETURN 
C 

10  FORMAT (  '  ****  INPUT  VARIABLE  ' ,  A,  '  IN  ERROR  ***♦■  ) 

END 

SUBROUTINE  TSTBAD (  VARNAM,  INDX,  OK  ) 


o  o 
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c 

C  WRITE  NAME  (-VARNAM-)  AND  INDEX  (-INDX-)  OF  VARIABLE  FAILING 

SELF-TEST  (  USE  INDX  =  -  99  TO  INDICATE  A  SCALAR  -VARNAM-  ) 

CHARACTER* ( * )  VARNAM 
LOGICAL  OK 

INTEGER  INDX 

C 

OK  =  .FALSE. 

IF (  INDX. EQ. -99  )  THEN 
WRITE (  *,  101  )  VARNAM 
ELSE 

WRITE (  *,  101  )  VARNAM,  INDX 
ENDIF 
C 

RETURN 

C 

101  FORMAT (  /.  '  SELF-TEST  FAILED  FOR  OUTPUT  VARIABLE  '  ,  A, 

$  '  WITH  INDEX1,  14  ) 

END 
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PROGRAM  SLICE 

C  THIS  PROGRAM  WILL  DRAW  IN  COLOR,  SLICES  OF  THE  PRESSURE  PROFILE 
C  IN  THE  CELL. 

IMPLICIT  REAL  (A — Z ) 

PARAMETER  (NUM_COLORS=255) 

INTEGER  I 

CHARACTER-80  FILENAME 
CHARACTER  *1  CH 
LOGICAL  NORM 

REAL  PK_PK(1000)  ,  PK_PK_2  (1000)  ,  X  (1000)  ,  ¥  1 1  000) 

COMMON  VD_ID,WD_ID,VCM_ID 
TYPE  * 

TYPE  *,  1  SLICE  VI  .2  ' 

TYPE  * 

100  TYPE  1 

1  format  ('  Enter  X  data  file  name  ->  ’$) 

ACCEPT  2,  FILENAME 

2  FORMAT  (A80) 

OPEN  (UNIT— 1 ,  NAME-FILENAME,  STATUS-  'OLD  '  ,  READONLY) 

TYPE  3 

3  format <’  Enter  Y  data  file  name  ->  •  S) 

ACCEPT  2,  FILENAME 

OPEN  (UNIT-2,  NAME-FILENAME,  STATUS-  '  OLD  '  ,  READONLY) 

TYPE  30 

30  FORMAT  (  1  NORMALIZE  TO  1.0  < Y/N)  ?  '$) 

ACCEPT  '  (Al)',CH 

NORM-CH .  EQ .  '  Y  1  .  OR .  CH .  E<3 .  1  Y  ' 

READ  (1, 4)  ORIG_X,  ORIG_Y,ORIG_Z,  ORIG_Yl  ,  ORIG_Zl  ,  ORIG_PK_PK, 

2  ORIG_FREQ.  ORIGJTEMPl  ,  ORIG_TEMP2  ,  ORIGJ/OLT 

4  format  (F4.1,2x,F4.1,2x,F5.1,2x,F5.3,2x,F5.3,2x,F5.2,2x, 

2  f5.2,2x,F4.1,2X,F4.1,2x,F4.2) 


1  =  1 

DO  WHILE  (  .TRUE.  ) 

1  =  1  +  1 

READ  (1, 4,  END-5)  X  (I)  ,  TY,  TZ ,  TY 1 ,  TZ1 ,  PK_PK  ( I ) 
X  ( I )  =IFIX(X  (I)  +0.5) 

IF(I.EQ.1)Z_SLICE=TZ 
IF  (NORM)  THEN 

PK_PK(I)  — PK_PK ( I )  /ORIG_PK_PK 
ELSE 

PK_PK_MAX=MAX(PX_PK_MAX,PK_PK(I)  ) 

END  IF 
END  DO 


5 


X ( 1) =1-2 
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PK_PK  ( 1  >  =  1-2 
CLOSE  <UNIT=1) 

READ  (2,  4 )  ORIG_X,  ORIG_Y,  ORIG_Z,  ORIG_Yl ,  ORIG_Zl ,  ORIG_PK_PK, 
2  ORIG  FREQ,ORIG_TEMPl,ORIG_TEMP2,ORIG  volt 


1=1 

DO  WHILE  (.  TRUE  .  ) 

1=1  +  1 

READ  (2, 4,  END=6)  TX,  Y  (I)  ,  TZ  ,  TYl  ,  TZl ,  PK_PK_2  (I) 
Y(I)=IFIX(Y(I)  +0.5) 

IF  (I  .EQ.  1)  Z_SLICEl=TZ 
IF (NORM) THEN 

PK_PK_2  (I)  =PK_PK_2  (I)  /ORIG_PK_PK 
ELSE 

PK_PK_2_MAX=MAX  (PK_PK_2_MAX,  PK_PK_2  (I)  ) 
ENDIF 
END  DO 


6  Y(l)=I-2 

PK  PK  2  (1)  =1-2 


CLOSE (UNIT=2) 


IF  ( Z  SLICE. NE.Z  SLICEl )  STOP  '  SLICES  ARE  NOT  THE  SAME.' 


IF  (NORM)  THEN 

PK_PK_MAX=1 . 0 
ELSE 

P  K_P  K_MAX=MAX  ( P  K_P  K  MAX ,  PK_PK  2  _MAX ) 
ENDIF 


DO  1=2,  IFIX  (X  ( 1)  +1)  ,1 

PK_PK(I)  =MIN(PK_PK_MAX,  PK_PK(I)  )  *  (  (NUM_COLORS+ 1 )  /PK_PK_MAX) 
END  DO 


DO  1=2,  IFIX(Y(1)  +1)  ,  1 

PK_PK_2  (I)  =MIN(PK_PK_MAX,  PK_PK_2  (I)  )  *  {  ( NUM_COLORS+ 1 )  /PK_PK_MAX) 
END  DO 


CALL  INIT  GRAPH 


CALL  GRAPH  X  SLICE  (X,PK  PK) 


CALL  GRAPH_Y_SLICE(Y,PK_PK_2) 

IF (X ( 1 )  . NE . Y ( 1 ) ) TYPE  *,'WARNING;  SLICE  LENGTHS  ARE  DIFFERENT.’ 

C  TYPE  *,  'SLICE  DATA' 

C  DO  1=2,  IFIX  (MIN  (X  (1)  ,  Y  (1)  )  )  +1,2 

C  IF  (X  (I )  .  NE.  Y  (I )  )  TYPE  *,X(I),'  <>  '  ,  Y  ( I ) 

C  IF(X(I+1)  .  NE  .  Y  (1+  1)  )  TYPE  *,X(I  +  1),  '  <>  *,Y(I+1) 

C  TYPE  10,  IFIX(X(I)  )  ,  IFIX(PK_PK(I) +0.5)  ,  IFIX(PK_PK_2  (Ii +0.5)  , 

C  2  IFIX  (X(I  +  1)  ),  IFIX(PK_PK(I  +  1)  +0.5)  ,  IFIX(PK_PK_2  (1+1)  +0.5) 

CIO  FORMAT!'  '  12  '  '  12  '  ,  '  12  '  '12'  '12'  ,  •  1 2  > 

C  END  DO 

200  TYPE  * 

TYPE  *,  'ENTER  ONE  OF  THE  FOLLOWING:  ' 


-s 


TYPE  *,  1  1.  SAVE  PICTURE  TO  DISK' 

type  *,  •  2.  Restart  program' 

TYPE  *,  '  3.  EXIT  PROGRAM' 

ACCEPT  ’(Al)’,CH 

IF<CH.EQ.  ' 1 1 ) THEN 
CALL  SAVE_TO_DISK 
GOTO  200 

ELSE  IF(CH.EQ.  '  2  ' )  THEN 
C  CALL  ERASE_DISPLAY 

GOTO  100 
ELSE 

C  CALL  ERASE_DISPLAY 

CALL  EXIT 
ENDIF 

END 
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PROGRAM  SHAPE 

VIRTUAL  DRIVE  ( 16384  )  /  WAVEl  (16384)  ,  WAVEl  ( j.6384 )  , DC ( 1 6384 ) 
INTEGER  DRIVE,  WAVEl,  WAVE 2 ,  DC 

INTEGER  ROW,  COL,  NCHAR,  I ,  OSCADR,  GENADR,  INFO(50)  ,  MAXVAL,  MAXV 
INTEGER  KOUNT 

REAL  GEN,  ATEMP.WTEMP,  WATT,  FREQ,  RMS,  RVAL,  PERCNT 
BYTE  CTIME  ( 9)  ,FILE(80)  ,STR(80)  ,CFILE(15)  ,CH 
LOGICAL  THRESH,  ENABLE 

C0W4ON  /MAIN/  CTIME 

DATA  CTIME/ 9*0/,  THRESH/  .FALSE.  /,  INFO/ 50*  0/ ,  MAXVAL/ 4  0  97  / 
DATA  PERCNT/0 .25/,  KOUNT/0/,  ENABLE/  .TRUE./ 

OSCADR  =4  ! HP  SCOPE  ADDRESS 

GENADR  =17  !  GENERATOR  ADDRESS 


CALL  IBIFC 
CALL  IBTERM  (10) 

CALL  SETOSC (OSCADR) 

CALL  HEADER  ('SHAPE  OSCILLATION  DATA  COLLECTION') 

CALL  IBSEOI('HEAD  0',,  GENADR) 

CALL  GETGEN (GEN, FREQ, GENADR, OSCADR) 

CALL  TIME (CTIME) 

CALL  UTIME (CTIME, 1,1) 

CALL  OPT (  1 ,  'CURRENT  TIME:  ',, CTIME) 

call  opt (2, 'Laser  wattage: ',watt, ’watts') 

CALL  OPT (  3 ,  ' GENERATOR :  '  , GEN ,  ' VOLTS ' ) 

call  opt  ( 4 ,' Generator  :  ',  Fkeq/  1000. ,'  kHz  ' ) 

CALL  OPT (5,  'AMBIENT  TEMP:  '  , ATEMP ,  'DEG  C') 

call  opt  ( 6 ,  'Water  temp:  ',wtemp,  ‘deg  CM 

CALL  OPT  (7,  'GET  oscilloscope  waveforms’,  , ) 
call  opt (8,  'Write  acquired  waveforms',,) 

CALL  OPT (  9,  '  START  THRESHOLD  TRIGGER ' ,  ,  } 

call  opt (10, 'Get  new  threshold',,) 

call  opt (11,  'Threshold:  • , float (maxval)  ,  'units') 

call  opt (12,  'Criteria  %:  ',  percnt* 100  . ,  '%') 

call  opt  (13,’  Enable  panel  control  ' , ,  i 

CALL  OPT  (14,  'RESET  "CURRENT  FILE'”,,) 
call  opt(15,  'Current  file:  ',,cfile) 

CALL  OPT  (16,  '  EXtT  PROGRAM',  ,  ) 

call  prompt (' Enter  first  "current  state"  file  name  ->  ') 

ACCEPT  5, NCHAR,  (CFILE(I)  ,  1  =  1,  14,  1) 

5  FORMAT  (Q,  14 Al) 

FILE  (NCHAR+1)  =0 
CALL  NXTFIL (CFILE) 

OPEN  (UNIT=1,  NAME=CFILE,  TYPE=  '  NlW'  ) 

WRITE  (1,6) 

6  FORMAT!'  SCATTER  GEN  LASER  GEN  AMB .  WAT.'/ 

2  '  TIMF  MV  DC  VOLTS  WATTS  FREQ  TEMP  TEMP  ’  ) 


MAXROW=8 

ROW=l 

COL=i 
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8  CALL  IPOKE  ('M4,  IPEEK  ("44)  .OR.  ”50100) 

CALL  POS  (18,  1) 

TYPE  80,  27 

80  FORMAT  (  '  +  '  Al  1  [  J<RETURN>  CHOOSES  SELECTION'/ 

2  1  <ARROWS>  MOVES  TO  SELECTION'/ 

2  '  <SPACE>  GETS  CURRENT  VALUES,  WRITES  THEM  AND  ', 

2  ' GETS  A  NEW  THRESHOLD ' / 

2  '  <NUMBER>  INCEREMENTS  VOLTAGE  BY  <NUMBER> '0 . 00 1  '  / 

2  '  R  performs:  <space>  <1>'/ 

2  '  F  FORCES  A  TRIGGER'S) 

IF  (ENABLE)  CALL  CLRESR  (OSCADR) 

IF  (ENABLE)  CALL  CLROER  (OSCADR) 

9  CALL  POS  (ROW+3,  COL) 

10  ICH— ITTINR ( ) 

CALL  UTIME(CTIME,ROW,COL) 

CALL  GETAD0  (IVAL,  8) 

IF  (IVAL.GT.MAXVAL.  AND.  THRESH)  GOTO  5000 

IF ( ICH.EQ. 70 .OR. ICH.EQ.  102 ) GOTO  4  000 
IF ( ICH . EQ . 32  .  OR . ICH . EQ . 82 ) GOTO  1800 
IF  ( ICH  .  GE  .  4  9  .  AND  .  ICH .  LE  .  57  )  GOTO  6000 

IF (ICH. LE.O .OR. ICH.EQ.  27 .OR. ICH.EQ.  91 . OR . ICH . EQ.  1 0) GOTO  10 

GOTO (100, 2 00,  300,4  00)  ICH-64 
IF ( ICH . EQ . 1 3) GOTO  500 
IF(ICH.EQ.23)GOTO  7000 

11  TYPE  12,  7 

12  FORMAT  (  '  +'AlS) 

GOTO  10 

C  UP  ARROW 

100  ROW— ROW—  1 

IF  ( ROW  .LE.O)  ROW=MAX ROW 
GOTO  9 

C  Down  arrow 

2  00  ROW=ROW+l 

IF  ( ROW.  GT.  MAX  ROW)  ROW=l 
GOTO  9 

C  RIGHT  ARROW 

300  COL=COL+40 

TF  (COL .  GT  .  4  1 )  COL- 1 
GOTO  9 

C  LEFT  ARROW 

4  00  COL=COL-4  0 

IF (COL. LE. 0) COL=4  1 
GOTO  9 


C  RETURN 


500  CALL  IPOKEC'44,  IPEEKC44)  .AND.  ”127677) 

GOTO (1100, 1500, 1200, 17 00, 1300, 1400, 1600, 1900, 2000, 2200, 11 
2  ,2100,2400,2500,  11,2300)  (ROW-1 )  *2+1+MAx0  (0,  COL-40) 

CALL  ERRMSG  (  '  ILLEGAL  SELECTION  .  1 ) 

GOTO  11 

C  TIME 

1100  CALL  ERRMSG  ( 'CAN'  'T  CHANGE  THE  TIME.  '  ) 

GOTO  8 

C  SET  GENERATOR  VOLTAGE 

1200  CALL  PROMPT  (' ENTER  VOLTAGE  (VOLTS)  ->  ') 

READ  (5, 1201, ERR=1210)  RVAL 

1201  FORMAT  (G) 

GEN- RVAL 

1202  CALL  SETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

CALL  GETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

call  opt (3,  'Generator:  ',gen,  'volts’) 

GOTO  8 

1210  CALL  ERRMSG  ('you  MUST  USE  A  REAL  NUMBER.  ') 

GOTO  8 

C  AMBIENT  TEMP 

1300  CALL  PROMPT  (' ENTER  AMBIEMT  TEMPERATURE  (DEG  C)  ->  ') 

READ  (5, 1201,  ERR— 1210)  RVAL 
ATEMP=RVAL 

call  opt (5,  'Ambient  temp:  ',atemp,  'deg  cm 

GOTO  8 

C  WATER  TEMP 

1400  CALL  PROMPT  ( 'ENTER  WATER  TEMPERATURE  (DEG  C)  ->  ') 

READ(5,  1201,  ERR—  1 2 1 0)  RVAL 
WTEMP=RVAL 

CALL  OPT  (6,  'WATER  TEMP:  ',WT£MP,  'DEG  CM 

GOTO  8 

C  LASER  WATTAGE 

1500  CALL  PROMPT  (' ENTER  LASER  WATTAGE  (WATTS)  ->  ') 

READ  (5, 1201,ERR=1210)  RVAL 
WATT-RVAL 

call  opt  ( 2 ,  '  Laser  Wattage  : ' ,  watt  ,  '  watts  • ) 
goto  8 

C  GET  WAVEFORMS 

1600  IF  (  .NOT.  ENABLE)  GOTO  1610 

call  prompt  (' Transfer  records  1  or  2?  M 
accept  *,irec 
if(irec.ne.2) irec=1 
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CALL  GETWAV  ( 1 , DC,  OSCADR,  IREC) 

CALL  GETWAV  (2 ,  DRIVE,  OSCADR,  IREC) 

CALL  GETWAV  <  3,  WAVEl,  OSCADR,  IREC) 

CALL  GETWAV  (  4  ,  WAVE2  ,  OSCADR,  IREC) 

WRiTEfl,*)  'Transferring  waveforms,  irec  =',irec 
goto  8 

1610  CALL  ERRMSGCYOU  MUST  DISABLE  PANEL  CONTROL!1) 

GOTO  8 

C  SET  GENERATOR  FREQUENCY 

1700  CALL  PROMPT  (  1  ENTER  FREQUENCY  (KILOHERTZ)  ->  ') 

READ  (5,  1201,  ERO=1210)  RVAL 
FREQ=RVAL*1000. 

CALL  SETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

CALL  GETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

call  opt (3,  'Generator:  ',gen,  'volts') 

CALL  OPT  ( 4  ,  'GENERATOR:  ',  FREQ/ 1000  .  ,  'KHZ') 

GOTO  8 

C  get/write  current  state 

1800  CALL  UTIME  (CTIME,  ROW,  COL) 

CALL  PROMPT  (  '  TRIGGERING  .  .  .  '  ) 

CALL  GETRMS  (RMS) 

CALL  GETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

call  opt  (3,  'Generator:  ' , gen,  '  volts ' ) 

CALL  OPT  (  4  ,' GENERATOR  :  ',  FREQ/ 1000  .,' KHZ  *  ) 

WRITE  (1, 1807)  (CTIME  (I)  ,  1  =  1, 8,  1)  ,  RMS,  GEN,  WATT,  FREQ/ 10  00.  , 

2  ATEMP  ,  WTEMP 

1807  FORMAT ( '  ' 8Al '  ' F7 . 3 '  ' F6 . 3 '  ' F5 . 3 '  *f5.2'  'F4.1'  'f4.1) 

CALL  POS  (13,1) 

TYPE  1805,  27,  RMS 

1805  FORMAT  ('+ 'Al '  (KCURRENT  RMS  VALUE:  'F7.3'  MV'$) 

IF(ICH.EQ.32.0R.ICH.EQ.82)G0T0  2200  !  GET  NEW  THRESHOLD  ON  <SPACE>  ALSO 
GOTO  8 

1810  TYPE  1811,  NCHAR,  (STR(I)  ,  1  =  1,  LEN  (STR)  ,  1) 

1811  FORMATt'  Error:  nchar='i 'str=  ' 80a1) 

CALL  EXIT 

C  WRITE  WAVEFORMS 

1900  CALL  PROMPT  CHOW  MANY  DATA  POINTS?  ') 

ACCEPT  *,N 

IF  (N.  LE.  0)  GOTO  8 

write (1,*)  'Writing  waveforms,  size  =',n 

CALL  NXTFIL (CFILE) 

OPEN  (UNIT=2,  NAME=CFILE,  TYPE=  '  NEW ' ) 

WRITE  (2,  1901)  (DC  (I)  ,  1  =  1,  N,  1) 

CLOSE  (UNIT=2) 

CALL  NXTFIL (CFILE) 

OPEN  (UNIT=2  ,  NAME=CFILE,  TYPE=  '  NEW  '  ) 

WRITE(2, 1901)  (DRIVE  (I)  ,  1  =  1, N,  1) 
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1901  FORMAT  ('  *  1 5 ) 

CLOSE  (UNIT-2) 

CALL  NXTFIL (CFTLE) 

OPEN  ( UNIT-2, NAME=CFIL£,TYPE='NEW  ) 

WRITE<2,  1901)  (WAVEl  (X)  ,  1=1, N,  1) 

CLOSE (UNIT-2) 

CALL  NXTFIL (CFILE) 

OPEN  (UNIT-2 ,  NAME=CFILE,  TYPE-  ’  NEW  • ) 

WRITE(2,  1901)  (WAVE2  (I)  ,  1=1, N,  1) 

CLOSE  (UNIT-2) 

CLOSE  (UN IT- 1) 

CALL  NXTFIL (CFILE) 

GOTO  2510 

C  START  THRESHOLD  TRIGGERING 
2000  THRESH-.  NOT.  THRESH 

IF  (  .NOT.  THRESH)  CALL  OPT(9,  'START  THRESHOLD  TRIGGER',,) 

IF (THRESH) CALL  OPT(9, 'STOP  THRESHOLD  TRIGGER  '.,) 

IF  (THRESH)  WRITE  (1,  *)  'THRESHOLD  TRIGGERRING  STARTED' 

IF  (  .NOT. THRESH)  WRITE  ( 1,  *)  'THRESHOLD  TRIGGERRING  STOPPED 
2  DUE  TO  USER' 

GOTO  8 

C  CRITERIA  PERCENTAGE 

2100  call  prompt (' Enter  new  criteria  percent  <xe  0.12  =  12%)  ->  ') 

ACCEPT  *  ,  PERCNT 

writeU,*)  'Criteria  percentage: ',  ifix  (percnt*100 . ) 

CALL  OPT  (12,  'CRITERIA  %:  ',  PERCNT*  100  .,'%' ) 

GOTO  8 

C  GET  NEW  THRESHOLD  VALUE 

2200  CALL  PROMPT  (  'GETTING  NEW  THRESHOLD  ...') 

MAXVAL-9999 
DO  2220  J=1 , 20,  1 
MAXV-0 

DO  2210  1  =  1, 200,  1 
CALL  GETAD0  (IVAL,  8) 

MAXV-MAX0  (IVAL.MAXV) 

2210  CONTINUE 

MAXVAL-MIN0  (MAXVAL,MAXV) 

2220  CONTINUE 

MAXVAL-MAX0  (MAXVAL  +  IFIX  (PERCNT*FLOAT  (MAXVAL)  )  ,  20) 

call  opt ( 1 1 ,' Threshold :  ’, float (maxval) ,  '  units') 

WRITE  (1,*)  'CURRENT  THRESHOLD :',  MAXVAL 

IF(ICH.EQ.  82)  GOTO  6000  !R  MEANS  INCREMENT  GEN  ALSO 

GOTO  8 

C  EXIT  PROGRAM 


2300 


CLOSE (UNIT— 1 ) 
CALL  POS  (24, 1) 
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CALL  EXIT 

c  Enable /disable  remote 

24  00  ENABLE-.  NOT.  ENABLE 

IF  (ENABLE)  II-IBREMO(l) 

IF  (  .NOT.  ENABLE)  II-IBREMO(G) 

IF  (ENABLE)  CALL  OPT  (13,  'ENABLE  PANEL  CONTROL  ',,) 

IF(.  NOT.  ENABLE)CALL  OPTI13,  'DISABLE  PANEL  CONTROL  ',,) 

IF  (ENABLE)  WRITE  (  1,  *)  'PANEL  CONTROL  USER  DISABLED' 

IF  (  .NOT.  ENABLE)  WRITE  (1,  *)  'PANEL  CONTROL  USER  ENABLED' 

GOTO  8 

C  RESET  "CURRENT  FILE" 

2500  CALL  PROMPTCDO  YOU  WANT  TO  KEEP  THE  CURRENT  FILE  ( Y/N)  ?  •  ) 
ACCEPT  2501,  CH 

2501  FORMAT  (Al) 

IF (CH.EQ.  * Y'  .OR.CH.EQ.  ' Y  '  ) GOTO  2502 

IF ( .NOT.  (CH.EQ. 'N' .OR.CH.EQ.  'N' ) )  GOTO  2  500 

CL0SE(UNIT=1,DISP0SE='DELETE'  ) 

GOTO  2510 

2502  CLOSE  (UNIT=1) 

DO  2503  1=1, 5,1 

2503  CALL  NXTFIL  (CFILE) 

2  510  OPEN  (UNIT-1 ,  NAME=CFIL£,  TYPE-  *  NEW  ) 

WRITE  (1,  6) 

GOTO  8 

C  FORCED  TRIGGER 

4000  CALL  IBSEOI  ( 'START' ,  ,OSCADR) 

CALL  MWAIT(128,OSCADR) 

CALL  PROMPT  (  'TRIGGER  FORCED  I  ') 

write  (1,*)  '**  Trigger  forced  by  user  •*' 

IF (THRESH) WRITE (1, 

1  'THRESHOLD  TRIGGERRING  STOPPED  DUE  TO  FORCING’ 

THRESH- .  FALSE . 

CALL  WRTSET  (OSCADR,  GENADR) 

CALL  OPT (9,  'START  THRESHOLD  TRIGGER',,) 

GOTO  8 

C  Threshold  criteria  met 

5000  TYPE  12,7 

CALL  IBSEOI  (  '  START  '  ,  ,  OSCADR) 

CALL  MWAIT(  128,  OSCADR) 

TYPE  12,7 

CALL  PROMPT  (  'CRITERIA  MET  !  '  ) 

WRITEfl,  *)  ’  **  CRITERIA  MET  **  THRESHOLD  :',  IVAL 
THRESH-.  FALSE. 

WRITE  (1,*)  'THRESHOLD  TRIGGERRING  STOPPED  DUE  TO  CRITERIA' 
CALL  WRTSET  (OSCADR,  GENADR) 

CALL  OPT  (9,  'START  THRESHOLD  TRIGGER',,) 

GOTO  8 


C  INCREMENT  GEN 


6000  IF  ( ICH .  EQ .  82 )  GEN-GEN+0 . 001 

IF(ICH.NE.82)GEN=GEN  +  FLOAT(ICH-4  8>  *0.001 
GOTO  1202 

C  REPAINT  SCREEN 

7000  CALL  HEADER* 'SHAPE  OSCILLATION  DATA  COLLECTION') 
CALL  OPT  (1.  'CURRENT  TIME:  ',,CTIME) 

call  opt  (2 , '  Laser  wattage : ' ,  watt,  ' watts  ' ) 

CALL  OPT<3,  'GENERATOR:  ' , GEN,  'VOLTS') 

call  opt ( 4 ,' generator :  ', freq/ 1000., 'khz' ) 

CALL  OPT  (5,  'AMBIENT  temp:  ' ,  ATEMP,  '  DEG  C  ' ) 

CALL  OPT  (6,  'WATER  TEMP:  ' ,  WTEMP ,  '  DEG  C  • ) 

CALL  OPT  (7,  'GET  OSCILLOSCOPE  WAVEFORMS  '  ,  ,  ) 

CALL  OPT (8,  'WRITE  ACQUIRED  WAVEFORMS',,) 

CALL  OPT  (9,  'START  THRESHOLD  TRIGGER',,) 

CALL  OPT  (10,  'GET  NEW  THRESHOLD',,) 

call  opt (ll, 'Threshold:  •, float (maxval)  , 'units') 

CALL  OPT  (12,  'CRITERIA  %:  '  ,  PERCNT*100  . ,  '%') 

CALL  OPT  (13,  'ENABLE  PANEL  CONTROL',,) 

CALL  OPT  (14,  'SET  NEW  "CURRENT  FILE"',,) 

CALL  OPT  (15,  'CURRENT  FILE:  ',,CFILE) 

CALL  OPT  (16,  'EXIT  PROGRAM'  ,  ,  ) 

CALL  POS  (13,  1) 

TYPE  1805,  27,  RMS 
GOTO  8 

END 

SUBROUTINE  HEADER  (STR) 

BYTE  STR  ( 1 ) 

TYPE  1,27,27,27 

1  FORMAT  ('  +  ' Al  '  [H'Al'  (J'A1'#3'S) 

TYPE  2,  ( STR  ( I )  ,  1  =  1 ,  LEN  (  STR)  ,  1) 

2  FORMAT  (  '  +  '  A 1  $ ) 

TYPE  3,  27,27 

3  FORMAT  ( '  +  '  Al  '  [ 2H  '  Al '  #4  '  $) 

TYPE  2,  ( STR  ( I )  ,  1  =  1,  LEN(STR)  ,  1) 

RETURN 

END 

SUBROUTINE  OPT  (NUM,  STRl,  VALUE,  STR2) 

INTEGER  NUM,  ROW,  COL 
BYTE  STRl  (1)  ,STR2  (1) 

REAL  VALUE 

ROW-  (NUM-1)  /2  +  4 
COL=l 

IF (MOD ( NUM ,  2 )  . EQ. 0) COL=4 1 
CALL  POS  (ROW,  COL) 

IF  (IADDR  (STRl)  .EQ.-1IGOTO  100 
TYPE  1,27 

FORMAT  (  '  +  '  Al  1  ( 1M '  S ) 

TYPE  2,  (STRl  (I)  ,  1  =  1,  LEN  (STRl)  ,1) 
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2  FORMAT  (  '  + ' Al $ ) 

TYPE  3,27 

3  FORMAT  ('+'  Al  '  [M '  $ ) 

100  IF (IADDR (VALUE)  ,EQ.-l)GOTO  200 

IF  (ABS  (VALUE)  .GT.  32767  .)  GOTO  150 
IF (IFIX (VALUE) .NE. VALUE) GOTO  150 
TYPE  101,  IFIX  (VALUE) 

101  FORMAT  (  1  +  '15$) 

GOTO  200 

150  TYPE  102.  VALUE 

102  FORMAT  (  1  +  '  F7 . 3$) 

200  IF(IADDR(STR2)  .EQ.-11GOTO  300 

TYPE  2,  '  ' ,  (STR2  (I)  ,1  =  1,  LEN(STR2)  ,1) 

300  RETURN 

END 

SUBROUTINE  POS  ( ROW,  COL) 

INTEGER  ROW, COL 

TYPE  1,27, ROW/10  +  48, MOD(ROW,  10)  +  4  8 ,  COL/1 0+4  8 ,  MOD  ( COL,  10)  +48 
1  FORMAT  ( '  +  1  Al  '  (  *  2Al  *  ;  '  2A1  '  H  ’  S ) 

RETURN 

END 

SUBROUTINE  PROMPT (STR) 

BYTE  STR ( 1 ) 

CALL  POS  (22,1) 

TYPE  1,27 

1  FORMAT  (  '  +  'Al '  (7M'$) 

TYPE  2,  (  STR  (I)  ,  1  =  1 ,  LEN  (  STR)  ,1) 

2  FORMAT  C  +  'AlS) 

TYPE  3,27,27 

3  FORMAT  ('  +  'Al  '  (M'Al  '  (J  '$) 

RETURN 

END 

SUBROUTINE  ERRMSG  (STR) 

BYTE  STR  ( 1 ) 

CALL  POS  (23,  1) 

TYPE  1,27,  7 

1  FORMAT  ('  +  'Al 1  (7M'A1S) 

TYPE  2,  (  STR  ( I )  ,  1  =  1,  LEN  (STR)  ,  1) 

2  FORMAT  ('  +'AlS) 

TYPE  3,  27 , 27 

3  FORMAT  ('  + 'Al  '  (M'Al  1  [O' 5) 

CALL  WAIT 

RETURN 

END 

INTEGER  FUNCTION  LEN (STR) 

BYTE  STR ( 1 ) 

1  =  1 

1  IF (STR (I) .£0.0) GOTO  2 

1  =  1  +  1 
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GOTO  1 


2  LEN-I-1 

RETURN 

END 

SUBROUTINE  UTIME  (CTIME,  ROW,  COL) 

INTEGER  ROW,  COL 

BYTE  CTIME(9)  ,OTIME<9) 

DATA  OTIME/9*0/ 

CALL  TIME  (CTIME) 

if(ct:he<8)  .eq.otime(8)  (return 
DO  1  1-1,8,  1 
1  OTIME  (I) -CTIME  (I) 

OTIME  (9)  =0 

CALL  OPT  ( 1 ,  'CURRENT  TIME:  ',,  OTIME) 

CALL  POS  (ROW+3,COL) 

RETURN 

END 

SUBROUTINE  GETGEN  (GEN,  FREQ,  GENADR,  OSCADR) 

REAL  GEN,  FREQ 
INTEGER  GENADR,  NCHAR 
BYTE  STR  ( 80) 

CALL  IBSEOI  (  '  FR?  '  ,  ,  GENADR) 

NCHAR-I8RECV  (STR,  80,  GENADR)  -2 
DECODE (NCHAR, 1 , STR) FREQ 

1  FORMAT  (F12. 3) 

CALL  IBSEOI  (  '  AM?  '  ,  ,  GENADR) 

NCHAR— IBRECV  ( STR,  80,  GENADR)  -2 
DECODE  (NCHAR,  2,  STR)  GEN 

2  FORMAT  (F12 . 6) 

IF  (GEN.  GE.  0.03)  CALL  IBSEOI  (' CHANNEL  2;  RANGE  2  00.0  MV',,  OSCADR) 

IF  (GEN.  LT.  0.03)  CALL  IBSEOI  (' CHANNEL  2;RANGE  100.0  MV’  ,  ,  OSCADR) 

RETURN 

END 

SUBROUTINE  SETGEN (GEN, FREQ, GENADR , OSCADR) 

REAL  GEN,  FREQ 

INTEGER  GENADR,  NCHAR,  OSCADR 
BYTE  STRl  (16)  ,STR2  (16) 

DATA  STRl/  'A',  'M'  ,  5*0,  '  ,  ',6*0,  'V',  'R'/ 

DATA  STR2  /  '  F ' ,  'R'  ,8*0,  '  .  ' ,  3*0,  'H' ,  'Z'/ 


ENCODE  (12 , 1,  STR2  (  3)  )  FREQ 
1  FORMAT  (Fl2 . 3) 

CALL  IBSEOI  (STR2, 16, GENADR) 


2 


ENCODE  (12, 2,  STRl  (3)  )  GEN 
FORMAT  (Fl2. 6) 

CALL  IBSEOI  (STRl,  16, GENADR) 
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1701 


1702 


1710 

1720 


1725 


1 


2 


IF(G£N.GE.0.03)CALL  IBSEOI  ( 'CHANNEL  2;RANGE  200. C  MV',,OSCADR) 
IF(G£N.LT.0.03)CALL  IBSEOI  ( 'CHANNEL  2;RANGE  100.0  MV',, OSCADR) 


RETURN 

END 

SUBROUTINE  GETWAV  (CHAN,  WAVEl ,  OSCADR,  IREC) 

VIRTUAL  WAVEl  (16384) 

INTEGER  CHAN,  OSCADR,  WAVEl,  I  ,  J,  K,  LENG,  NCHAR,  IREC 
BYTE  STR(80)  ,ST£MP(4)  ,WAVE<4096) 

CALL  IBSEOI  ( 'WAVEFORM  FORMAT  WORD ',,  OSCADR) 

CALL  CFILL( 'WAVEFORM  SOURCE  CHANNEL  0  RECORD  l',STR) 

STR(25)  =CHAN+48 
STR(  34 )  =  IREC  +  4  8 
CALL  IBSEOI  (STR,  ,  OSCADR) 

CALL  IBTERM  ( ) 

CALL  IBSEOI  (  'WAVEFORM  DATA?  ' ,  ,  OSCADR) 

NC HAR“ I BRECV  (STEMP,  4  ,  OSCADR) 

LENG=  (FLOAT  (STEMP  (3)  .AND.  "3  77)  *256  .  +  FLOAT (STEMP  < 4 )  .AND.  ”377)  )  /2  . 
CALL  POS  (14, 1) 

TYPE  1701,  LENG 

FORMAT  ('  +TOTAL  NUMBER  OF  DATA  POINTS:  '  IS) 

K-l 

DO  1720  1  =  1,  LENG,  2048 
CALL  POS (15,  1) 

TYPE  1702, K-l 

FORMAT  (  '  +NUMBER  OF  DATA  POINTS  TRANSFERRED:  '  1$) 

NCHAR=  I  BRECV  (WAVE,  4096, OSCADR) 
do  1710  j=1,nchar,2 

WAVEl  (K)  »  (WAVE  ( J)  .AND.  "3  77)  *256+  (WAVE  (J+l)  .AND.  "377) 

K=K+  1 
CONTINUE 
CONTINUE 
CALL  POS  (15, 1) 

TYPE  1702, K-l 
CALL  POS  (14,  1) 

TYPE  1725,27 
FORMAT  (  '  +  '  Al  '  [  J  '  $  ) 

CALL  IBTERM  (10) 

RETURN 

END 

SUBROUTINE  CFILL (STR, STRl ) 

BYTE  STR ( 1 ) , STRl (1) 

INTEGER  I 


1=1 

STRl  (  1)  =0 

IF (STR (I)  .  EQ  .  0 ) GOTO  2 
STRl  (I)  =STR (I) 

1  =  1  +  1 

GOTO  1 

STRl  (I)  =0 

RETURN 

END 

SUBROUTINE  SETOSC (OSCADR) 


INTEGER  OSCADR 
BYTE  CH 

CALI  HEADER  ( '  HP  5183  INSTRUMENT  SETTINGS') 

CALL  IBSEOI  (  '  PRESET;  TRACE  4  '  ,  ,  OSCADR) 

CALL  IBSEOI  (' SWEEP  SINGLE /TRIGGER  SOURCE  EXTERNAL ',,  OSCADR) 
CALL  POS  (5,  1) 

TYPE  2 

FORMAT  ( '+SINGLE  SWEEP,  EXTERNAL  TRIGGERING'S) 

CALL  IBSEOI  ('MAIN  1.0  US',,  OSCADR) 

CALL  POS  (5,40) 

TYPE  3 

FORMAT  C+SAMPLING  RATE:  1.0  MICROSECONDS / SAMPLE  '  S) 

CALL  IBSEOI  (’ TRIGGER  LEVEL  EXTERNAL  3.0  V',,  OSCADR) 

CALL  IBSEOI  (' TRIGGER  MODE  EXTERNAL  POS ',,  OSCADR) 

CALL  IBSEOI  ( 'TRIGGER  POSITION  -OC  PERCENT ',,  OSCADR) 

CALL  POS  (7,1) 

TYPE  4 

FORMAT  C  +TRIGGER  SETTINGS'  S) 

CALL  POS  ( 8 ,  1 ) 

TYPE  5 

FORMAT  (  '  +  EXTERNAL  LEVEL  3 . 0 V  '  $ ) 

CALL  POS  (8,  40) 

TYPE  6 

FORMAT  (' +POSITIVE  SLOPE  TRIGGERING'S) 

CALL  POS  (9,  1) 

TYPE  7 

FORMAT  (’ +50%  PRE-TRIGGERING'S) 

CALL  POS  (9,  40) 

TYPE  8 

FORMAT  (  '  +-TRIGGER  SOURCE:  HP  GENERATOR  SYNC'S) 

CALL  POS  ( 1 1 ,  1 ) 

TYPE  80 

FORMAT  (  '  ^CHANNEL  SETTINGS ’S) 

CALL  POS  (12,  1) 

TYPE  9 

FORMAT  (  '  +  CHANNEL  1  CHANNEL  2  CHANNEL  3  '  , 

2 'CHANNEL  4  *  S ) 

CALL  IBSEOI  (  'CHANNEL  l/CHANNEL  CONFIGURE  SINGLE' ,,  OSCADR) 

CALL  IBSEOI  (  'CHANNEL  2/CHANNEL  CONFIGURE  SINGLE ',,  OSCADR) 

CALL  IBSEOI  ( 'CHANNEL  3/CHANNEL  CONFIGURE  SINGLE OSCADR) 

CALL  IBSEOI  ( 'CHANNEL  4/CHANNEL  CONFIGURE  DIFF ',,  OSCADR) 

CALL  POS (13,1) 

TYPE  10 

FORMAT  (  '  +SINGLE  ENDED  SINGLE  ENDED  SINGLE  ENDED  ' , 

?  'DIFFERENTIAL' S) 

CALL  IBSEOI  ( 'CHANNEL  1 ;  RANGE  1.0  V/COUPLING  DC',, OSCADR) 

CALL  IBSEOI  ( 'CHANNEL  2 ; RANGE  100.0  MV/COUPLING  AC',, OSCADR) 
CALL  IBSEOI  ( ’CHANNEL  3/ RANGE  200.0  MV/COUPLING  AC’,,  OSCADR) 
CALL  IBSEOI  ( 'CHANNEL  4  ;  RANGE  200.0  MV/COUPLING  AC',, OSCADR) 
CALL  POS (14, 1) 

TYPE  11 

FORMAT  (  '  +■  +/-1.0V  +/- 1 00MV  +/-200MV 
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2  * +/-200MV' S) 

CALL  POS (IS,  1) 

TYPE  12 

1 2  FORMAT  (  •  +  DC  AC  AC 

2  ■  AC  *  S ) 

CALL  I BS EOI  (' LENGTH  327  68 ',,  OSCADR) 

CALI  POS  (16,1) 

TYPE  13 

13  FORMAT  ( '+32768  SAMPLES  32768  SAMPLES  32768  SAMPLES  ', 

2' 32768  SAMPLES  1  $) 

CALL  CLRESR (OSCADR) 

CALL  CLROER (OSCADR) 

call  prompt ( 1  Press  <return>  to  continue') 

ACCEPT  100, CH 
100  FORMAT  (Al) 

RETURN 

END 

SUBROUTINE  MWAIT (MASK, INS) 

IMPLICIT  INTEGER  (A-Z) 

BYTE  ERR (100) 

BYTE  STR (19) 

DATA  STR/ 'O', 'E', 'E', 9*'  E ',' S ',' E ',  '  ','3',  '6'/ 

ENCODE ( 8 , 1 , STR ( 5 ) ) MASK 
1  FORMAT (18) 

CALL  IBSEOI (STR, 19, INS) 

10  ISTAT=IBSTS ( INS) .AND. ”377 

IF (MOD ( ISTAT, 64) /32 . EQ . 1 ) GOTO  1000 
IF (MOD ( I ST AT, 2 ) . EQ . 0 ) GOTO  10 
RETURN 

1000  CALL  IBSEOI ('ERR  STRING  ?',,INS) 

N=IBRECV (ERR, 100, INS) 

TYPE  *, ' ERROR! ! ! ! ' 

TYPE  1001,  (ERR(I)  ,  1  =  1,  N,  1) 

1001  FORMAT ( '  ' 1 00A1 ) 

STOP 

END 

SUBROUTINE  CLRESR (OSCADR) 

IMPLICIT  INTEGER  (A-Z) 

BYTE  STR ( 80 ) 

CALL  IBSEOI ( 'ESR? ',, OSCADR) 

N=IBRECV (STR, 80, OSCADR) 

RETURN 

END 

SUBROUTINE  CLROER ( OSCADR) 

IMPLICIT  INTEGER  (A-Z) 
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BYTE  STR (80) 

CALL  IBSEOI ( 1 OER? 1 , , OSCADR ) 

N=IBRECV (STR, 80, OSCADR) 

RETURN 

END 

SUBROUTINE  GETADO  ( IVAL,  CHAN) 

INTEGER  IVAL, CHAN 

IVAL=IPE£K("171002) 

CALL  IPOKE  ("171000, CHAN  +  256+1) 

1  IF  (IPEEKBI  ”171000)  ,LT.  0)  GOTO  1 

IVAL=IABS(IPEEK("171002)  -2048) 

RETURN 

END 

SUBROUTINE  GETRMS(RMS) 

INTEGER  I, IVAL 
REAL  RMS,  FACTOR 

DATA  FACTOR/2,5/  ! CONVERT  A/D  TO  MV 

RMS=0 . 0 

DO  1810  1  =  1,500,  1 
CALL  GETADO  ( IVAL,  0) 

RMS=RMS+IVAL 
1810  CONTINUE 

RMS=  (HMS/SOO,  )  ‘FACTOR 

RETURN 

END 

SUBROUTINE  NXTFIL (FILE) 

BYTE  FILE  (15)  .PREFIX 
INTEGER  I,  N, START 
DATA  N/0/ 

IF (N.GE. 99) GOTO  100 
IF  (N  .  LE  .  0  )  GOTO  2  00 

N=N+ 1 

5  I  =  ST  ART 

FILE  (I)  -PREFIX 
1  =  1  +  1 

IF  (N.  LE.  9)  GOTO  10 
FILE  (I)  =N/10+48 
1  =  1  +  1 

FILE  (I)  =MOD  (N,  10)  +48 
1  =  1  +  1 
GOTO  20 

10  FILE(I)=N+48 


20  FILE  (I)  ='  .  ' 

FILE  (1  +  1)  =  *  D  1 
FILEd+2)  =  1  A ' 
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FILE(I  +  3)  =  'T’ 

FILE  (1  +  4)  =0 

CALL  OPT  (15,  'CURRENT  FILE:  ') 

CALL  OPT  (15,  'CURRENT  FILE:  '..FILE) 

RETURN 


100  N— 1 

PREFIX=PREFIX+1 

IF ( PREFIX. GT.  '  Z  '  ) PREFIX= '  A' 

GOTO  5 

2  00  START=1 

DO  210  1=1, 4,1 

210  IF  (FILE  (I)  .EQ.  '  t  '  )  START=I+1 

PREFIX=FILE (START) 

N=FILE  ( START  +  1 )  -48 

IF (FILE (START+2)  .EQ.  '.') GOTO  5 

N=N*  1 0  +  (FILE  (START  +  2)  -48) 

GOTO  5 

END 

SUBROUTINE  WRTSET (OSCADR, GENADR) 

INTEGER  OSCADR, GENADR 
BYTE  STR(80) 

WRITE(1,  *)  ' - 

write  (1,*)  'Generator  settings' 

CALL  IBSEOI  (  '  FR? ' ,  ,  GENADR) 

NCHAR=IBRECV(STR,  80,  GENADR)  -2 

WRITE  (1,*)'  FREQ:  '  ,  (STR(I)  ,  I  =  1,NCHAR,  1) 

CALL  IBSEOI  (  '  AM?  '  ,  ,  GENADR) 

NCHAR=IBRECV(STR,  80,  GENADR)  -2 

write ( 1 , * )  '  Volt:  ' ,  (str(i)  ,  i  =  1,nchar,  1) 

WRITE  (1,*)  'HP  SCOPE  SETTINGS' 

CALL  IBSEOI  ( 'CHANNEL  1 ;  RANGE? ',,  OSCADR) 

NCHAR=IBRECV(STR,  80,  OSCADR)  -2 

WRITEd,*)'  CHANNEL  1  RANGE:  '  ,  <  STR  ( I )  ,  I  =1,  NCHAR,  1 ) 

CALL  IBSEOI  ( 'CHANNEL  2;  RANGE?  ',,  OSCADR) 

NCHAR=IBRECV  (STR,  80,  OSCADR)  -2 

WRITEd,*)'  CHANNEL  2  RANGE:  '  ,  ( STR  ( I )  ,  I  =1 ,  NCHAR ,  1 ) 

CALL  IBSEOI  ( 'CHANNEL  3;  RANGE? ',,  OSCADR) 

NCHAR=IBRECV(STR,  80,  OSCADR)  -2 

WRITEd,*)'  CHANNEL  3  RANGE:  '  ,  (  STR  (  I )  ,  I  =1 ,  NCHAR ,  1 ) 

CALL  IBSEOI  (  'CHANNEL  4  ;  RANGE? ',,  OSCADR) 

NCHAR=IBRECV  (STR,  80,  OSCADR)  -2 

WRITEd,*)'  CHANNEL  4  RANGE:  ' ,  (STR  ( I )  ,  I  =1 ,  NCHAR,  1 ) 

CALL  IBSEOI  (  'MAIN?' ,, OSCADR) 

NCHAR=  IBRECV  (STR,  80,  OSCADR)  -2 

WRITEd,*)'  SAMPLING  RATE:  '  ,  (STR  ( I )  ,  1  =  1  ,  NCHAR ,  1 ) 

WRITEd,  *)  ' - 
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RETURN 

END 
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